DDDDDDDDDDDD «sé EEE EEEEEEEEEEEE LLL TITTITTTITITTTT | AAAAAAAAA 

DDDDDDDDDDDD =—ss«EEEEEEEEEEEEEEE LLL TITTITITITTTTTT | AAAAAAAAA 

DDDDDDDDDDDD ~—ss« EEEEEEEEEEEEEEE LLL TITTTTTTTTTTTTT §«——- AAAAAAAAA 

DDD pod EEE LLL TIT AAA AAA | 

DDD DDD EEE LLL TIT AAA AAA | 

DDD pop EEE LLL TIT AAA AAA | 

DDD DDD EE LLL TIT AAA AAA | 
D DDD EEE LLL TIT AAA AAA | 

DDD DDD EEE LLL TIT AAA AAA 

DDD DDD EEEEEEEEEEEE = LLL TIT AAA AAA 

DDD DDD EEEEEEEEEEEE = LLL TIT AAA AAA 

DDD DDD EEEEEEEEEEEE = LLL TIT AAA AAA 

DDD DDD EEE LLL TIT AAAAAAAAAAAAAAA | 

DDD DDD EEE LLL TIT AAAAAAAAAAAAAAA | 

DDD DDD EEE LLL TIT AAAAAAAAAAAAAAA 

DDD DDD EEE LLL TIT AAA AAA 

DDD DDD EEE LLL TIT AAA 

DDD DDD EEE LLL TIT AAA AAA 

DDDDDDDDDDDD ss: EEEEEEEEEEEEEEE LULLLLLLLLLLLLL TIT AAA AAA 

DDDDDDDDDDDD «=—s«EEEEEEEEEEEEEEE LLLLLULLLLLLLLL TIT AAA AAA 

DDDDDDDDDDDD«=—=s«EEEEEEEEEEEEEEE LULLLLLLLLLLLLL TIT AAA AAA 
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XX XX DDODDDDD EEEEEEEEEE LL TITTTTTTTT AARAAK 
XX XX DDDDDDDD EEEEEEEEEE Lt TTTTTTTITT AbAARA 
XX XX DD DD EE LL TT AA 
XX XxX DD DD EE iL TT aa AK 

KX KX dD DD EE LL TT AR AA 

KX XK 0D DD EE LL TT AA An 

Xx dD DD EEEEEEEE LL TT AR aA 
x dD DD EEEEEEEE LL TT 

XX = KX dD DD EE LL TT AAAAAAAAAA 

KX KX dD DD EE LL TT AAAAAAAAAA 
KX KX DD DD EE LL TT Aw AA eee 
KX Xx DD DD EE LL TT AA AB sees 
KX XX DDDDDDDD EEEEEEEEEE LLLLLLLLLL TT ba AA eee 
KX XX DDDDDDDD EEEEEEEEEE LLLLLLLLLL TT Ad AA ees 
LL 1111] SSSSSSSS 
LL HI! SSSSSSSS 
LL I] $$ 
LL I] $$ 
LL I] $s 
LL I] $s 
LL I] SSSSSS 
LL I] SSSSSS 
LL I] $$ 
LL I] $$ 
LL I] $$ 
LL I] $$ 
LELLLLLLLL 111101 SSSSSSSS 
LELLLELLLE PERSE SSSSSSSS 
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FOR BOTH VERSIONS EXCEPT FOR ENVIRONMENTAL 
DIFFERENCES. THE SYNTAX IS QUITE TERSE AND SOMEWHAT CRYPTIC AND 
1S DOCUMENTED IN THE "GUIDE TO WRITING AN 1/0 DRIVER’. 


: ENVIRONMENT: 

: DELTA = NORMAL PROCESS ENVIRO 
XDELTA = STANDALONE, RESIDENT 
BOTH VERSIONS MUST BE POSITIO 


ROOCSOSCSoSo 


NMENT, VARIOUS acces? MODES. 
. KERNEL MODE, IPL=31 
N INDEPENDENT - BEWARE! 


C 4 
XDELTA - EXECUTIVE DEBUGGER 15=SEP=1984 23:40:27 VAX/VMS Macro V04-00 Page 1 
v04=000 rans oat 7 83:69:85 DELTA. SRCIXDELTA.MAR; 1 ew 
1 If DF ,SW_PROCESS 
‘ TITLE DELTA”= MULTIMODE PROCESS DEBUGGER 
4 TITLE XDELTA = EXECUTIVE DEBUGGER 
: “IDENT 'v04=000' : 
; HTTTITITITTITTTTTLLLLLLT TLE LLL 
10 ;* ® 
11 :* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY ® 
0 1 t® DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 4 
6 13 j* ALL RIGHTS RESERVED. . 
4 5 
8 15 :® THIS SOFTWARE I$ FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
00 1 t® ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE ®* 
00 17 :* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
000 18 :® COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
000 19 :* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
900 0 j* TRANSFERRED. . 
P ® 
00 g t® THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
00 t® AND D NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
900 é :* CORPORATION. ‘ 
;* * 
0000 é ‘® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
9000 : :* SOFTWARE ON EQUIPMENT WHICH 1S NOT SUPPLIED BY DIGITAL. ‘ 
0900 4 os eoncenccenecouccenceenccenenecnesoncennesersncseseceesconsconsencceneceeces 
1 
00 : +4 
900 33 FACILITY: EXECUTIVE, DEBUGGING TOOLS 
800 5 : ABSTRACT: 
000 6 : THIS MODULE PRODUCES TWO DIFFERENT DEBUGGERS DEPENDING ON THE SETTING 
00 : OF THE ASSEMBLY SWITCH, SW_PROCESS. DELTA IS A MULTIMODE PROCESS 
90 8 : DEBUGGER USING SYSTEM SERVICES WHILE XDELTA IS A STANDALONE EXEC 
0 : DEBUGGING TOOL. 
00 40 
boo 
ri 
4b 
45 
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48 
49 


: COMMAND SYNTAX IS IDENTICAL 
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FAILED "B73Eb=198e 60:08:85 EDELYASsReSxpertasmar;1 = 8" (9 
-SBTTL HISTORY ; DETAILED 
AUTHOR: R. HUSTVEDT CREATION DATE: 15-NOV-76 
MODIFIED BY: 
v03-016 atthews 18-Jul-1984 


WHMO001 Bill 

Call CONSGETCHAR and CONSPUTCHAR to do I/0 to the console 
terminal. Call CONSOWNCTY to allocate and CONSREALEASECTY to 
release the console terminal. 


v03-015 MSHO039 Michael S. Harvey 11-May-1984 
Adjust image activation SET exception vector index 
when setting up a DELTA rundown vector so that it 
won't be lost by a subsequent image activation prior 
to actual rundown. 


v03-014 MSHO002 Michael S. Harvey 16-Jan-1984 
Reenable AST delivery in EXIT command to ensure process 
doesn't hang up when EXIT issued from kernel mode. Also, 
lengthen input command buffer to match specified maximum 
Length in input Q10. 


v03-013 TCMO003 Trudy C. Matthews 13-Dec-1983 
Use ‘Write enable bit’’ when enabling and disabling 
console terminal access for venus. 


v03-012 KDM0084 Kathleen D. Morse 27-Sep-1983 
Add MicroVAX I support to CPUDISP macros. 

v03-011 RLRCPUDISP Robert L. Rappaport 15-Jun-1983 
Recode CPUDISP macros to use new format. 

v03-010 MIR1039 Michael I. Rosenblum 27-May-1983 
Fix non PIC reference in New format Q10 

v03-009 MIROO39 Michael I. Rosenblum 29-Apr-1983 


Make the process based DELTA use itemlist qio's with 
The no editing bit set. 


v03-008 JLV0236 Jake VanNo 25-MAR-1983 
Make Q10 a Q10W in OUTZSTRING so that a read will 
not block write. 


v03-007 TCMO002 Trudy C. Matthews 16-Feb-1983 
Correct console enable mask in TCMO001. 


v03-006 ROW0159 Ralph 0. Weber 28-JAN-1983 
Enhance DELTA initialization to set all pages in DELTA to user 
writable. This corrects a preeeee encountered while teyine to 
gebup DCL with DELTA. It also guarantees that DELTA will work 
n all oceons modes. Change Limit on rundown handler vector 
table from 505 to <256-7>. 

v03-005 TCMO001 Trudy C. Matthews 11-Jan-1983 
Change 11/780 machine check handler to yr ite PRS_SBIFS back 
to itself to clear error bit. Add 11/790 machine check 
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SEP=1 DELTA.SRCJXDELTA.MAR; 1 
handler; initialize 11/790 console interface registers. 


v03-004 ROW0143 Ralph 0. Weber 24-N0V-1982 

Change orecoosqnede OUTZSTRING to do single Q10 for whole 

sgring. Make terminal reed! write Q10s do a SWAITEF and retry 
insufficient resources error is returned by the Q10 system 

service. Make reference to CTLSGL_USRUNDWN in SETRUNDWN a 

weak reference so that DELTA can be Linked with SYSINIT. 

Fix numerous branch destinations broken by the above. Add 

call to SIODEF definition macro. 


v03-003 aceneey Andrew C. Goldstein, 5-May-1982 20:01 
Condition rundown handler on user mode startup 


v03-002 ACG028 Andrew C. Goldstein, 13-Apr-1982 15:12 
Use privileged rundown handler to reset exception vectors 


v03-001 RIHO097 Richard I. Hustvedt 11-Apr-1982 
Turn off processor register mode when proceeding. 
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1 
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1 

1 

1 

1 

1 

1 

1 

1 
4 
4 
4 
7) 
5 
4 
8 
C 
7¢ 
70 
70 
E 
DO7F 
D07F 


 ~ 


OWN STORAGE: 
-PSECT ZSDEBUG_CODE,LONG,PIC,EXE WRT 


IF DF ,SW_PROCESS 

DELBASE : .LONG DEL ASE-DELBASE - RELATIVE PAGE NUMBER OF WRITABLE 
-LONG <511*DELEND-DELBASE>€°C511; REL PAGE NUMBER OF END OF WRITABLE 
-LONG DELTA_START-DELBASE ; START ADDRESS 
SENDC 

CONTEXT: 
LONG 


BUFFER 7 +t au 


INBUF: .BLKB 80 INPUT BUFFE 


OPER: .BYTE OPERATO 


R 
BASE OF DATA AREA(CENTER) 


STATUS: .LONG ; 
Fl: LONG 3 
Fg: LONG ; 
F3: ~ LONG 3 
F4: . ; 
F5: . 3 
MFYFLG: .LONG 0 ; 
3; ADDRESS SPACES 
PID: LONG 3; PID FOR ADDRESS SPACE O=>SELF 
INSLEN: .LONG ; LENGTH PREVIOUS INST 
INSBUF: .LONG 3; ADDRESS OF INSTRUCTION STREAM BUFFER 
3 OUTPUT_ADDRESS ROUTINE) 
FCTR: -BYTE 0 3; FIELD COUNTER 
DTYPE: .BYTE § 3; DATA TYPE 
CURTYPE: .BYTE 3; CURRENT TYPE 
0 
4 


BS SO OD NOP NEW 9 OOD NIA NE WIN OOD NA NEW OO OD NO NEW $9 OD NA UNE UO O00 
oow 


PRE FAA AAA AAAI RONINININININDIIIDND 3 BQO OOOO OO0O000 00000000000 


0 : F 
1080 CURDOT: .LONG : CURRENT LOCATION 
084 :  .LONG : QUANTITY (;0 
o¢ OUTBUF: .BLKL + OUTPUT BUFFER 
009 ; REGISTER SAVE AREA 
ve ° 
09 SAVREG: ; REGISTER SAVE AREA 
009 eBLKL 1 : R 
444 -BLKL 1 ; RI 
DOA SAVR2: .BLKL 1 7 R 
DOAS -BLKL 1 ; R 
DOAB -BLKL 1 : RS 
JOA -BLKL 1 PY RS 
D0E -BLKL 1 ; R 
DOE -BLKL 1 3; R 
0088 ~-BLKL q : Re 
ppet -BLKL 1 ; R 
DOC -BLKL 1 ; RI 
DOCS -BLKL 1 ; RI 
00C8 SAVAP: .BLKL 1 3 AP 
D0CC -BLKL 1 > (FP) 


STATUS FLAGS 
LOS 
; MODIFY ENABLE FLAG FOR OTHER PROCESS 


= EXECU wie DEBUGGER 


DECLARAT 

D4 D 

D8 00D 

Bs 

SB 

000000E4 : 

000000E4 : 

E 

E 

E 

E 

E 

E 

E 

E 

E 

E 

E 

E 

E 

E 

E 

E 

E 

00 E 

E 

QOO000ES O0E 
00000000' 


m 
OD NII SF OOO BWM OOO COCO GIGI E EPPS EPP EP E EEE EF FOOMOD 


AOS WWW | | “QDOQCOCOCOMMmMmMmMmrn 


4 SAVSP: 


ASTEN: 
SAVRXCS: 


SSEb=198« 60: i: $5 


-BLKL 1 
-BLKL 1 
-BLKL 1 
-BLKW 1 
-BLKw 1 


-BLKL 1 


t CONTEXTSZ=.-CONTEXT 


“ 

< 

° 
" 


OVROPC: 


SSNS AAA AAA AOA OUI 


WINGO ONO NEW O ODNOUE 


74 BRKADR=. 
75 


6 XDELIBRK: : 


RESERVE SPACE FOR MULTIPLE MODE 
Hf QF .Su_PROCESS 

“BLKB © CONTEXTSZ 
FCONTEXTSZ+<DTYPE-CONTEXT> 


»=SAV... 


BREAK POINT DATA 


.BYTE 0 
“ALIGN LONG 
-4 
NDF ,SW_PROCESS 


-LONG INISBRK 


4 FF 
7 ener 0 


-BLK 7 
§ NBRK=<, _-4~BRKADRD /4 


OVRADR: .BLKL 
4 NTMPBRK=1 
5 BRKOPS <1 
6 oP 
.BLKB 
8 -BLKB 1 
9 BRKDSP=.-4 
9 -BLKL 8 
3 BRKCOM=.-4 
37 -BLKL 8 
95 XREGV: .BLKL 3 
NOF ,SW_PROCESS 


97 XDEL _LOADBASE : : 
9 LONG 


00 


0 
“LONG SCHSGL_CURPCB 
“LONG SCHSGL~PCBVEC 


AX/VMS Macro v04-00 
DELTA. SRCJXDELTA.MAR; 1 


OUTPUT CSR _ SAVE 
vad CSR E 
VE LOCATION 


SAV 
TENABLE SA 
CONSOLE RECEIVER STATUS 


; SIZE OF PER MODE CONTEXT AREA 
CONTEXT AREA 


; FOR EXEC,SUPER AND USER 
; POINT AT DTYPE,CURTYP 


: SET TYPE TO LONGWORD 
: RESTORE LOCATION COUNTER 


OPCODE IN STEP-OVER BREAKPOINT 


ADDRESS OF INITI 
; FOR PROCESS VERS 
INITIAL BREAKPOIN 
OTHER A a POINT AoOnesses 
NUMBER OF BREAKPOINTS 
TEMPORARY ry ad FOR STEP-OVER 
NUMB of TEMPORARY BREAKPOINTS 


AL BREAKPOINT 
i 


Bete Se Ge Ge Se Ge Se Ge Se Se Se 


SA 
INIT at 
REMAINING OPCODES 
TEMPORARY BREAKPOINT OPCODE 
; DISPLAY LOCATION START 
; COMMAND START 

X REGISTER VECTOR 


; BASE OF LOADABLE CPU DEPENDANT CODE 
; X3 = BASE OF SYSLOA CODE 

: x = CURRENT PCB ADDRESS 

; = BASE OF PCB VECTOR 


Page f 
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4 
paste: "$$Ep-198e 60:08:95 EDeCYassncSxpeLtacnar;1 = 9 (fy 


.LONG PFNSAW_SWPVBN ; XG = SWAP VEN 

“LONG PFNSAL“PTE : X? = PTE BACK POINTER 

“LONG PFNSAL “BAK i XB = BACKUP ADDRESS 

“LONG PFNSAW"REFCNT : X9 = REFERENCE COUNT 

“LONG PFNSAX"FLINK : MA ® FORWARD LINK 

“LONG PFNSAx"BLINK : XB = BACK 

“LONG PFNSAB"STATE : XC = STATE 

“LONG _ PFNSAB-TYPE > XD = TYPE 
XDSSGL_XESTRING: : 

-LONG  XDSS$GT_WORD_PFN ; ME;E WITH XO = PFN , DEFAULT TO WORD ARRAY 
XDSSGL_XFSTRING: : 


«LONG XDS$GT_WORD_PFN XF;€ WITH RO = PFN , DEFAULT TO WORD ARRAY 


MCHKSAV:.BLKL 1 : SAVED CONTENT OF MACHINE CHECK VECTOR 
: Fr - : FOR PROCESS VERSION 

TTIOSB: .BLKL é : 10 STATUS BLOCK FOR TERMINAL READ 

TTCHAN: .BLKL + CHANNEL NUMBER 

TTNAMD: .LONG é : DESCRIPTOR OF INPUT/OUTPUT DEVICE 
“BLL 1g yTNAND+8 : (ADDRESS SET BY INITIALIZATION) 

THITALST: . : THE ITEMLIST TO ALLOW DELTA TO TURN OFF ED 
“WORD TRMS_MODIFIERS : SPECIFY THE MODIFIERS | 
“LONG TRMSA_TH_NOEDIT : SPECIFY NO EDITING | 
“WORD TERMASKLEN ; LENGTH OF TERMINATOR MASK 
“WORD TRMS_TERM [SPECIFY THE TERMINATOR MASK 

TERMASKADR : . : ALLOW FOR RELOCATION 


~BLKL 
TTITMLSTLEN=.-TTITMLST 
DBGINPUT: 
.LONG 9 DESCRIPTOR OF DEFAULT INPUT/OUTPUT 
*BLKL 1 ;DBGINPUT+8 
“ASCII /ODBGSDELTA/ FIRST DEFAULT DELTA INPUT 
TRNINPUT: 


~-LONG 64 ; TRANSLATED DBGSDELTA 
~BLKL js TRNMPUTS (ADDRESS SET BY INITIALIZATION) 


-BLKB 
DBGACTIVE: ; ACTIVE FLAGS BY ACCESS MODE 


WDOODODODOODODOOODOODODODOOO0O00UN 09 OM 9 OU 9 


: 0 : 
3 EXITBLK: . > EXIT HANDLER BLOCK 
EXIHADR: .BLKL ° J EXIHANDLE ! EXIT HANDLER (ADDRESS SET BY INIT) 
LONG > ARGUMENT COUNT 
EXCODA:  .BLKL 1 sEXITCODE + ADDRESS TO STORE STATUS (ADDRESS SET BY IN 
.LONG 1 > RECEIVER FOR EXIT CODE 
KCOND_PRIMARY: 
LONG 0 3; PREVIOUS KERNEL PRIMARY HANDLER 
ECOND_PRIMARY: 
LON 0 3; PREVIOUS EXEC PRIMARY HANDLER 
SCOND_PRIMARY: 
0 ; PREVIOUS SUPER PRIMARY HANDLER 


KCOND_LASTCHANC: 
LON PREVIOUS KERNEL LAST CHANCE HANDLER 
ECOND_LASTCHANC 


; PREVIOUS EXEC LAST CHANCE HANDLER 


NOAA OS OD NA NE WN 9 OO NA NE WIN SO OD NA UE WIN 9 OD NA UNE OOO NOAUE 
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4 
DECLARATIONS oe BSEb=19be 60:08:95 EDEL YassncSxbeLTA.RaR; 1 


000000 


: SCOND _LASTE NONE 


1 

1 7 

1 TERMASK: 

1 eLONG <189>!<1810>! $i9)3! 
1 - LONG TERE FR >< 
“LONG <1ai5>!< Nd 

1 ¢ TERMASKLENE. -TERMASK 

! $. -ENDC 

: gi 3 LIST OF OPCODES WHICH CALL ROUTINES 
193 9 bveropcoves: 

13 7 YTE “x10 

19A te Byte *x1 

198 7 BYTE *x3 

19C 7% ~BYTE “XFA 

19D 75 BYTE “FB 

19E 76 OVEROPCLEN = .-OVEROPCODES 
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- EXECUTIVE DEBUGGER 15-SEP=1 AX/VMS Macro v04-00 Page 11 
PRIMARY tye Re SCANNER g: Ep. 138 88; $8; gf DELTA. SRCIXDELTA.MAR; 1 ° a) 
10 50 8} = g CMPW 0 séRO, #16 : 1S NUMBER > RADIX | 
A A & BGEQ ERROR + YES 
6 19 C4 c 6 8 MULL #16,R6 3 SCALE BY RADIX 
6 3 ¢ wes, ADDL = RO : AND ADD NEW DIGIT 
6A 04 f 4g 4 p INFLD: BISL #<faV_INFIELD>,(R10)  : NOTE FIELD INPUT 
4 4 RSB + NEXT PRIMARY CHARACTER 
46 4 
54 01 IF 6 if 4 4 GLOBL: ROTL #31,81,R4 ; GENERATE SYSTEM SPACE PREFIX 
54 7FFEOQOOO BF OD 6¢ 6 : HIGH: MOVL  #*X7FFEO000,R4 : Oy ge SPACE BASE ADDRESS 
1 487 PRE1: ®8SBB  ENDEXPR 3 END EXP RESSION 
56 D 4 : MOVL oR : SET INT 
E7 AF OOF 4 PUSHAB INFLD t RETURN THROUGH INFLD 
28 $30 ; BRB ENDEXPR 


N 4 
- EXECUTIVE DEBUGGER 1 Po AX/VMS Macro v04-00 Page 12. 
ENDER e END EMERES SION ar TEe ERs Boicks85  EARCYRS Magee vOK~00. ant fy 
8 4 3 .SBTTL ENDEXPR = END EXPRESSION | 
et 
B 497: 
B 498 ENDEXPR: ; 
03 ga 97 e5 B 49 BBCC #V NEGATE , (R10) ,5$ + SKIP IF NOT NEGATE | 
6 56 cr F : MNEGL R6-R : NEGATE ACCUMULATOR | 
a an CE agate 
FF AB 3% 6 § CLRB OPER-B(R11) 3 INIT OPERATOR | 
gh 5 10$ CASE OPER-B(R11) , TYPE=B, <~ + DO OPERATION | 
A 6 ADD,= ; ADD, PLUS | 
6A ADD = ; BLANK, PLUS | 
6A § MUL ,- + MULTIPLY | 
6A 10 DIV, ; DIVIDE, 4° | 
7 §7 7 9 512 SHFT: ASH R6,R7,R7 : SHIFT 
iT ilies be 7D 18 ' Ree : AND EXIT 
57 56 C4 7 14 MUL: MULL R6,R7  ; MULTIPLY | 
5 028 15 RSB : AND EXIT | 
57 56 c6 i 1 DIV: DivL R6,R7 =; DIVIDE Pas ail | 
57 56 CO 6 518 ADD: ADDL R6,R7  ; ADD ‘ 
05 0289 218 RSB : AND EXIT | 
028A 520 


nn 
} 
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v04-000 


- EXECUTIVE DEBUGGER VE-SEB-1984 3:40:37 AX/VMS Macro V04-00 
SLASH = OPEN CELL -SEP-1984 00:08:35 ([DELTA.SRCIXDELTA.MAR;:1 
A : .SBTTL SLASH = OPEN CELL 
A 4; 
A 5: OPEN SPECIFIED CELL 
A s Hauore : DISPLAY IN ASCII 
6A 02 88 A : BISB = #<1@V_ASCII>, (R10) + SET ASCII FLAG 
1 b 3 BRB OPEN : 
F 1 SLASH 
6A 902 er AA F : BICW #<laV_ASCII>!<1aV_INSTR>,(R10) ; CLEAR ASCII DISPLAY MODE 
6A 2000 BF AA 4 OPEN: BICW &#<laV7INSTR>, (R109 CLEAR INSTRUCTION FLAG 
aE 1 99 4 8SBB ENDF IELD + TERMINATE FIELD 
06 6A O08 ECE 9B 5 BBS #v_F1,(R10),5$ ADDR SPECIFIED? 
68 04 AB OD OF 6 MOVL QUAN~B(R11) ,CURDOT-B(R115 : NO, GO INDIRECT 
06 11 AS BRB 10$ : AND DISPLAY CONTENT 
68 D8 AB DO O2A : 5$ MOVL F1=-B(R11),CURDOT-B(R11) : SET NEW DOT 
50 6A 01 OF EF O2A9 10$ EXTZV #V_PRMODE,#1,(R10),RO ; GET PROCESSOR REGISTER MODE FLAG 
6a 01 «OF ~~ s50 FO 6 AE 40 INSV  ROT#V_PREG,#1, (R105 + AND MOVE TO SEMI-PERMANENT COPY 
0098 «3 B 41 BSBW Lotout + OUTPUT AND OPEN 
22 6A «6009~«COE1.—s«02B6 4¢ BBC #V_F2,(R10) ,RSET + RANGE SPECIFIED? 
68 DC AB D1 O2BA 543 158 CMPL $F 22B(R11),CURDOT-B(R11) : CHECK FOR END 
1¢ 615 «(028 44 BLEQ RSET : YES 
0086 30 02c 45 BSBW NEXTLOC : INCREMENT TO NEXT DOT 
F5 «11—«OOaC 246 BRB 15$ + AND CONTINUE 
FFOE 31 ae: 247 ERR4:  BRW ERROR + DECLARE ERROR 
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CUTIVE DEBUGGER ' 15=SEP=1984 23:40:27 VAX/VMS Macro v04-00 Page 14 XDE 
= = ° H : - e 
RET ORIN UF ose PORRENT OPEN CELL a= SE- 138 83:08:85 DELTA. SRCJXDELTA.MAR; 1 att v4 
.SBTTL RETURN = CLOSE CURRENT OPEN CELL 
c ; ; RETURN = CLOSE CURRENT OPEN CELL 
¢ eS 
C § RETURN: : 
1F 10 C8 Bs88 pape HELD t TERMINATE CURRENT FIELD 
1164 00 € CA § BBCC =o #V_OPEN ),10$ ; skip IF NONE OPEN 
6A 2002 BF 8 ¢ 60 Ite «#<Tav aN TSEAL Te INSTR>, (R10) 9; IF ASCII OR INSTRUCTION 
7 D : BNEQ = RS : DISPLAY MODE SKIP STORE OPERATION 
03 6A 08 D ; BBC #V_F1, (R10) ,RSET : SKIP IF NOTHING TO STORE 
7AB 9 D t BSBW DERO sft + DEPOSIT 
364 DC 6-564 RSET BRW ESE? : RESET SCANNER 
F9 6A ’ 1 ODF 565 1 BBC #V_F1, (R10) RSET + DONE IF NO INPUT 
03 1 £3 06 BRW £001 ; OTHERWISE OUTPUT 
£ 56 .DSABL LSB ; 


cc --——— 


= EXECUTIVE 


ENDFIELD - 
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FFS9 «= 30 : 
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3 
16 6A 02 3 e9 
FF 6B 5 Ee 

> A F 
cc a4 wh 50 +3 F4 
D8 AB4O D F9 
eae Fe Be 
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D 
UGGER 15-SEP-1984 :40:27 VAX/VMS Macro v04-00 Pa 1 
Tee ee CURRENT FIELD ar Seer tE8s Gaigasks YOR YAS Megro VOA~00. wate 


~SBTTL ENDFIELD = TERMINATE CURRENT FIELD 


—w 


DEB 
ERM 
i ; COMMA TERMINATE CURRENT FIELD 
a COMMA: ®8SBW  INFLD : ZERO IF NULL FIELD 
76; 
7 : TERMINATE CURRENT FIELD 
8 ENDFIELD: : 
0 BCC  #V_INFIELD,(R10),10$ |: CLEAR PENDING FIELD 
$B ENDEXPR : END EXPRESSION 
; MOVZBL FCTR-B(R11),RO : GET FIELD POINTER 
BBSS RO, 1(R10) FAR t ERROR IF TOO MANY FIELDS 
4 MOVL  R7.F1-8(R11)CROJ + STORE FIELD VALUE 
5 INCB —s FC FR=B(R11) t INCREMENT FIELD COUNTER 
: CLROQ RG + CLEAR ACCUMULATORS 
Z 10$ RSB + RETURN 


Xt 


§ $,- 3; WORD 
; $,- ; LONG 
10$: noyzeL @CURDOT-B(R11) ,QUAN-B(R11) urn’ GET BYTE 
208: 1? Na @CURDOT-B(R11) , QUAN-B(R11) ; GET WORD 


; RETURN 
30$: MOVL @CURDOT-B(R11) ,QUAN-B(R11) ne? GET LONGWORD 


—e 5 
- EXECUTIV BUGGER 15-SEP-1984 23:40:27 VAX/VMS Macro v04-00 Page 16. x0 
FERC - A DATA SPECIFIED aes oe t4 9 83:60:96 DELTA. SRCJXDELTA.MAR; 1 ° 9) vo 
.SBTTL FETCH = OBTAIN DATA SPECIFIED 
: FETCH SPECIFIED DATA 
FETCH : 
BBS #V_PREG, (R10) 408 + BR IF PROCESSOR REGISTER 
wf DF 7SwW_PROCESS : 
TSTL bib~BtR11) : CHECK FOR PROCESS GET 
BNE 50$ : BR IF YES 
CASE CURTYPE-B(R11) ,TYPE=B, <=" : OPERATE ON TYPE 
$,- YTE 


1D 6A =61F-~ EO 
04 AB «00 BB pe 
04 AB (00 8B x 
04 AB 00 BB p 
04 AB SO6B 4 
0 

: 

0 


CAR OPOPRRIPPPNINN  BOOOOOOCOSCOOOOODOOOODOOO 2M 


P>PPrrrrrrr PPP P\ PPP OVMNE MM OW NW WWWWWOWwowl LLLL LE 
PERE AAAA AAPA AAA A AA AAA A AAA AAA AMMAN 
SOON NE WIN $$ © OD NA NE WIN 9 OD NA UNE WP "8 OD NO UNE UP" 


1 
1 
1 
1 
1 
RSB ; RETU 
IF NDF . SW PROCESS : 
40S: EPR CURDOT=B(R11) ,QUAN-B(R115 : GET PROCESSOR REGISTER 
pr ; FALSE IF PROCESS VERSION | 
" . $CMKRNL_S B*FTCHPREG, (AP) ; CALL IN KERNEL MODE TO FETCH 
50S: BR FETCHP + FETCH FROM FOREIGN PROCESS 
IF DF ,SW_PROCESS ; 
FICHPREG: 3 
“woRD 0 : ENTRY MASK 
MOVAB W*PREXC, (FP) : SET EXCEPTION HANDLER 
MFPR  CURDOT-B(R11) ,QUAN-B(R115 : GET PROCESSOR REGISTER 
OVL #1,R0 ; RETURN SUCCESS 


- ENDC : 


| 

| 
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EXECUTIVE DEBUGGER 15=SEP=1984 23:40:27 VAX/VMS Macro V04-00 Page 17 
TIDOT - watt tii CURRENT LOCATION 5-3 oats 83:68:85 DELTA. SRCJXDELTA.MAR; 1 7 i 
A 3 «SBTTL NEXTDOT = INCREMENT CURRENT LOCATION 
A 4; 
A 5: INCREMENT TO NEXT LOCATION 
A $ NEXTDOT: ; 
F A 6 BBS #V_INSTR, (R10) ,208 : BRANCH IF INSTRUCTION MODE 
D 6 MOVL #17R1 ; ASSUME UNIT INCREMENT 
D 64 TSTL = (R10) + CHECK FOR PREG 
1 64 BLSS 108 : YES, USE UNIT INCREMENT 
9 b4¢ ROTL CURTYPE-B(R11),R1,R1 + FORM INCREMENT 
§ A 643 10$ ADDL R1, CURDOT-B(R11) ; AND ADD TO DOT 
C0 645 208 ADDL  INSLEN=B(R11),CURDOT-B(R11) ; SKIP OVER PREVIOUS INSTRUCTION 
0 4 64 RSB 


Vv 


— 


——————————————— 


1C OC 04 
FF7F 8 §=—30 
DF 8610 
ad 3 
31 6A ) ; 
BY 
6A La 2 


019¢ 
oe Ke 
52 ei 1 8 
8 AB42 «69% 
O1Al 0 
O1CcC 1 
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= EXECUTIVE DEBUGGER 15-SEP-1984 :40:27 YVAX/VMS Macro v04-00 Pa 18 
ou si - yf pERY CONTENT aes et 7 83:08:85 DELTA. SRC roetTA.mans1 - iD 
.SBTTL OUTPUT = DISPLAY CONTENT 
; OUTPUT CONTENT 
butes: 
6 é .BYTE 4,12,28 : STARTING DIGIT LIST 
$ .SBTTL LINE FEED = DISPLAY NEXT 
LINEFEED: ; 
SBW 2s RETURN ; CLOSE OPEN CELL 
NEXTLOC: : PROMPT WITH NEXT LOCATION 
8SBB NEXTDOT + INCREMENT LOCATION 
LOCPROMPT : DISPLAY ADDR/CONTENT 
SBW = OUTPUTA + OUTPUT ADDRESS 
4 LOCOUT: BBS #V_INSTR,(R10),OUTINS : BRANCH IF INSTRUCTION MODE 
665 esepCtséF + FETCH CONTENT 
666 B1SB #<1aV_OPEN>, (R10) t INDICATE OPEN CELL 
668 OUTPUT: ; 
66 MOVZBL CURTYPE-B(R11),R1 + GET TYPE 
6 9 MOVZBL OUTBBCR1),R2 : INIT DIGIT SELECTOR 
67 MOVL QUAN-B(R11).R3 + GET QUANTITY TO DISPLAY 
67¢ BBS #V_ASCII, (R10), 108 : CHECK FOR ASCII OUT 
67 BSBW TCOM : OUTPUT NUMBER IN HEX 
674 BRB $ + AND EXIT THROUGH OUTSPACE 
675 10$ MOVL R3,0UTBUF-B(R11) : PUT STRING IN BUFFER 
676 ASHL : GET COUNT 
67 CLRB = OU fBUF -B(R11)(R2) : MARK END OF STRING 
678 BSBW OUTZBUF : OUTBUT ASCIIZ BUFFER 
679 208: BRW OUTSPACE : FOLLOW WITH SPACE 


cece a CL LLL LLL LLL LLL LLL 


H 5 
| ¥Os"000 Tig = OUTPUT INSTRUCTION "See TSR 83:08:85 EDECYaSsatSxbervacnan;1 = 8" UF 


Mi ; .SBTTL OUTINS = OUTPUT INSTRUCTION 
tt 4 ; OUTPUT RANGE OF INSTRUCTIONS 
00 09 20 20 BE Spore ote : : 2 SPACES AND A TAB 
.WEAK LIBSINS_DECODE ; INSTRUCTION DECODE 1S OPTIONAL 
50 00000000'GF 95 : OUTINS: MOVAB GL 1BSINS_DECODE .RO ; GET ADDRESS OF INSTRUCTION DECODER 
P24 9 BNEQ $ + BRANCH IF LINKED WITH DECODER 
6A 2000 8F AA 34 Bicw #ilav INSTR, (R10) + SUPPRESS INSTRUCTION MODE 
BB i 3 BRB Loc : AND PRINT 1ST LONGWORD OF INS STREAM 
SE 0000052 BF C 4 5$: SUBL  #32+50,SP + ALLOCATE SPACE FOR INSTRUCTION STREAM 
95 + AND DECODE OUTPUT BUFFE 
FB AB 3 D 696 MOVL  $P,INSBUF-B(R11) + SAVE ADDRESS FOR OUTPUT_ADDRESS 
3 D 69 MOVL #32/4,R4 : SET ITERATION COUNT 
5 : 38 MOVL , + SET POINTER INTO BUFFER 
FE AB 9 MOVE #2,CURTYPE-B(R11) + SET FOR LONGWORD FETCHES 
8 p 0 PUSHL CURDOT-B(R11) : SAVE CURRENT LOCATION COUNTER 
FF AA 1 10$ BSBW Ss«FETCH + FETCH LONGWORD 
85 04 AB OD 7 : MOVL  QUAN-B(R11),(R5)+ + STORE INTO INSTRUCTION BUFFER 
6B 94 ¢ Ba. ADDL #4,CURDOT-B(R11) + SKIP TO NEXT LONGWORD 
‘354 sO*#&F 4 704 SOBGTR R4.10$ : FILL ENTIRE BUFFER 
BED 7 705 OPL  CURDOT-B(R11) : RESTORE CURRENT LOCATION 
DD 7 PUSHL R t ADDRESS OF DECODE OUTPUT BUFFER 
2 oD 4. PUSHL #50 + LENGTH OF DECODE OUTPUT BUFFER 
FE'AF 86 oO9F ; 708 PUSHAB B“OUTPUT_ADDRESS : ADDRESS OF SYMBOLIZE ROUTINE 
04 AE «63F «(O38C1) 7 PUSHAW 4(SP) : ADDRESS OF WORD TO RECEIVE LENGTH 
: AE 7F O3C& 710 PUSHAQ 8(SP) + ADDRESS OF DECODE OUTPUT DESCRIPTOR 
FB AB «OOF «CO8C7?)—S 711 PUSHAL INSBUF-B(R11) > ADDRESS OF INSTRUCTION STREAM POINTER 
00000000" ¢F 4 FB O3CA rie CALLS #4 G*LIBSINS_DECODE : DECODE INSTRUCTION INTO BUFFER 
7 D171 MOVG (SP)+.R > GET DESCRIPTOR OF STRING 
1A D4 «714 BLBC : BRANCH IF ERROR DETECTED 
G44 dD? «715 CLRB ss (RA) : MAKE INTO ASCIZ STRING 
144 DA ri BSBW OUTZSTRING * OUTPUT ASCIZ STRING 
F4 AB OCF 3 C Dp 71 SUBL3. SP INSBUF~B(R11) ,INSLEN-B(R 1) : SET LENGTH OF INSTRUCTION 
SE 0000005 F E 718 50$: ADDL #32+50,SP ; LOCATE STREAM/DECODE BUFFERS 
54 92 AF fA 71 MOVAB SPACES,R4 : SET ADDRESS OF SPACES 
130 (3 EE , 9 BRW OUTZSTRING : FOLLOW INSTRUCITON WITH SOME SPACE 
r 4 g : UNABLE TO DECODE INSTRUCTION (ACCVIO OR NEW INSTRUCTION). OUTPUT LONGWORD 
53 FB D F1 726 90$: MOVL @INsBUF-B(RI1) R3 : GET FIRST LONGWORD OF STREAM 
FZ amp 0 3 725 MOVL #1, INSLEN-B(R11) + SET INSTRUCTION LENGTH TO 1 
01 8 F 7 6 BSBW fLONG + OUTPUT AS LONGWORD 
7 FC ! BRB 
FE : 
Fe , 9 : OUTPUT AN OPERAND WHICH IS A RELATIVE OR ABSOLUTE ADDRESS 
FE 732° 
FE? : OUTPUT _ADDRESS: 
O81c O3F , ‘ ,WORD “M<R2,R3,R4,R11> 
53 Bc 7 MOVL gc (Ap) R3 ; GET VALUE (ARGUMENT BY REFERENCE) 
8 AC OD ia, MOVL (AP) ,R2 : GET ADDRESS OF DESCRIPTOR 
oc 10 eC «Cg 8 738 BLBS al16(AP),5$ + BRANCH IF ABSOLUTE ADDRESS 
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.SBTTL DETERMINE CLOSEST RELOCATION REGISTER 
, : ; RELOC = GIVEN AN ADDRESS, RETURN CLOSEST RELOCATION REGISTER, IF ANY. 
f 3 INPUTS: 
, ; R1 = ADDRESS 
4 13¢ : OUTPUTS: 
7 4: x} = EFFECTIVE ADDRESS 
, 5: R3 = REG STER @# 
; R&4 = OFFSET FROM X REGISTER 
7 29 ; PSL CONDITION CODES SET ON R3 
4 138 ; R2 DESTROYED. 
D4 047 90 RELOC: CLRL 3 ; START WITH xO 
E 047 MNEGL #1 .R2 t X REGISTER CLOSEST TO ADDRESS 
77 j MOVZWL R2.R + CLOSEST SO FAR IS FFFF 
p 7A 108 MOVL KREGVERS],RO : GET X REGISTER 
4 4 BEQL 15 : BRANCH IF NOT VALID 
C3 (04 5 SUBL3 RO,R1,RO + GET OFFSET FROM Xa 
bi CMPL «RO. #*KB00 t WITHIN REASONABLE RANGE? 
f 48D BGEQu 15$ + BRANCH IF OK 
D F 808 CMPL = RO, RG t CLOSER THAN CLOSEST SO FAR? 
1A 0492 809 BctRu 15$ t BRANCH IF NOT 
D0 0494 810 MOVL R3,R2 : SAVE X# CLOSEST TO ADDRESS 
D 97. 811 MOVL RO.RG : AND SET NEW CLOSEST OFFSET 
F2 049A i 15$ AOBLSS # -R3,108 : LOOP UNTIL LAST REGISTER TESTED 
p Ht 813 MOVL R2.R : RETURN X# CLOSEST TO ADDRESS 


kK § | 
voe=00 QutPUTA = OUTPUT ADDRESS "S$Eb=198¢ 65:08:85 EDECYASsmeSxbeLtacnan;1 = "99 


A a .SBTTL OUTPUTA = OUTPUT ADDRESS 
DA big ; OUTPUT ADDRESS 
\4Ad of : 6uTPUTA ; OUTPUT ADDRESS 
00aB C3 Ao BsBw SS s«CRLLF + OUTPUT CR/LF 
51 68 p \4a5 ; MOVL  CURDOT-B(R11),R1 + GET ADDRESS 
C yy BSBB RELOC + SEE IF CLOSE TO RELOCATION REGISTER 
ip (1 AA 824 BLSS = 2 : BRANCH IF NOT 
4 DD O4AC 825 PUSHL RG + SAVE OFFSET FROM RELOCATION REGISTER 
50 58 F 9A QOAE & : MOVZBL #*A'X',RO + OUTPUT AN 'X' 
O7F 30 048 SBW QT CHAR 
52 04 0485 & 3 CLRL RR PRINT ONLY 1 HEX DIGIT 
4E 10 0487 & $88 = OUTC + OUTPUT HEX VALUE IN R3 
50 36 7, 0489 & 6 MOVZBL #*A'+' RO + OUTPUT AN ‘+! 
00 04BC sk BSBW OUTCHAR 
52 : D0 O4BF ff : MOVL 4#8,R2 : PRINT 3 DIGITS 
BEDO 04¢ : POPL R : GET OFFSET FROM RELCATION REGISTER 
1 #11 O4¢ R34 BRB 10$ : OUTPUT OFFSET AND SLASH 
53 18 AB 9E 04C B35 2$ MOVAB SAVREG-B(R11),R3 : BASE OF REGISTER AREA 
4(B Of 6 IF DF ,SW_ PROCESS + ONLY FOR PROCESS VERSION 
4(B Of TSTL P16-BtR11) : CHECK FOR OTHER PROCESS ADDRESS 
4cB § BNEG 3 : BR IF YES 
53 6B 53 3 4(B 840 §UBL3 3, CURDOT-B(R11),R3 + COMPUTE OFFSET INTO REGISTER AREA 
13 19 O4CF 841 BLSS «S$ + NOT GENERAL REGISTER 
53 04 C6 0401 BAe DIVL &#4,R3 : SCALE TO LONGWORD NUMBER 
OF 53 D1 0404 84 CMPL =soR3 #15 : CHECK FOR REG NUMBER 
14 0407 844 BGTR 5$ : GTR, NOT A REGISTER 
50 52 8F 9A 409 845 MOVZBL #*A'R',RO ; OUTPUT PREFI 
054 30 O4DD B46 BSBW OUTCHAR : OF 'R® 
52 bs 4E0 B47 CLRL R ; ; AND SET FOR ONE DIGIT OF OUTPUT 
4E4 849 w IF DF Sw_PROCESS : FOR PROCESS VERSION ONLY 
4664 850 3$: TSTL «= (R10) + CHECK FOR PROCESSOR REGISTER 
464 851 BLSS 5$ : BR IF YES 
4E4 # MOVL #28,R2 : SET FOR LONGWORD OUTPUT 
464 85 MOVL  PID-B(R11),R3 : GET PID OF TARGET 
6E4 854 BSBB = OUTCOM ; OUTPUT PID AS LONGWORD 
664 855 MOVZBL #*A':',RO : SEPARATE WITH ':° 
abs 856 BSBW OUTCHAR + OUTPUT COLON 
53 6B 464 858 S$: MOVL  CURDOT-B(R11),R3 : GET ADDRESS 
33 1C 4E7 13 MOVL ie R2 + ASSUME LONGWORD OUTPUT 
4EA 560 TSTL (R10) : CHECK FOR PROCESSOR REGISTER 
A 4EC 86 BGEG 108 + NO, JUST A LONGWORD 
50 50 8F 4 6 MOVZBL #*A'P’,RO : PRECEDE WITH A 'P* 
003F 4F 13 BSBW QUTCHAR : OUTPUT P 
52 04 4F B64 VL #4, R2 : SET FIELD TO 2 DIGITS 
D 4F B65 10$:  BSBB  OUTCOM : COMMON OUTPUT 
50 2F 4FA 8 MOVZBL #SLSH,RO : OUTPUT SLASH 
0034 OF j BRW OUTCHAR + RETURN THROUGH OUTCHAR 
8 OUTDIGIT: + OUTPUT ONE DIGIT 
52 CLRL 2 + ZAP DIGIT SELECTOR 
570 BRB OUTCOM + AND MERGE WITH COMMON 
aye B72 OUTLONG ; OUTPUT LONGWORD 


L$ 
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R5 Save a register. 
cc + € #256, (R4) Locate the terminating zero. 


L3 Bae Ri, RS Compute the number of bytes to write. 


73 MOVL  #28,R2 : SET DIGIT SELECTOR 
te a MOVAB OUTBUF-8(R11),R4 : CET ADD bss OF OUTPUT BUFFER 
2 10$: = EXTZV RD aR a3 ay : GET DIG a 
7 MOVB ine R13, (R4)¢ : BUFFER IT 
7 SUBL : NEXT DIGIT 
7 BGEG + DO ALL REQUESTED 
CLRB 106 : MARK END OF BUFFER 
OUTZBUF : MOVAB OUTBUF-B(RI1) .RG + GET START OF BUFFER 
: OUTZSTRING: : OUTPUT ASCIZ STRING 
4 IF NDF ,SW_ PROCESS 
5 MOVZBL (R45+,RO : GET A CHAR 
$ BEQL ‘108 : BR IF DONE 
BSBB OUTCHAR + OUTPUT CHAR 
8 BRB OUTZSTRING + CONTINUE 
89 10$:  RSB + RETURN IF DONE 
31 
38 5 
94 QL Branch if zero bytes to write. 
95 50$: 10W_S EFN=#30,- Write whole buffer. 
% CHANETT TTCHA 
9 FUNC = #108, *WRITEVBLK.= 
$ 
9 P2=R5 
900 CMPW RO, #SS$_INSFMEM g if any resource error occurs, 
901 BEQL 608 ; wait for an 1/0 completion 
90 cM RO, #SS$_EXQUOTA : and try again. 
302 CMPW «RO, #@SS$_EXQUOTASTRT 
905 BLSSU 
906 CHP RO, #SS$_EXQUOTAEND 
908 60S: SUAITFR Sos EFN=#30 
910 90$: POPL ; Restore saved register. 
911 RSB 
31g .ENDC 
1 
914 
915 OUTBSLSH: : OUTPUT BACK SLASH 
gi6 MOVZBL #BSLSH,RO : SET CHARACTER CODE 
1 R OUTCHAR + AND OUTPUT IT 
18 OUTR8: MOVZBL RB,RO : GET CHAR TO OUTPUT 
19 OUTCHAR: : OUTPUT CHAR IN R 
9 IF NDF ,SW_PROCESS ; 
TSTL =P + CHECK FOR CONSOLE 
: BNEG 108 ; NO, USE DEVICE DIRECTLY 
; JMP G*CONSPUTCHAR : OUfPUT TO THE CONSOLE TERMINAL 
5 108: Movw QUTCRCAP) ARI : GET STATUS 
5 BBC ; WALT FOR READY 
MOVE =e «RO, eo itBGAP) : OUTPUT CHAR 
8 J IFF > FALSE FOR PROC ss VERSION 
PUSHL RO : BUFFER CHARACTER ON STACK 


ce 


a 5 
XDELTA - EXECUTIVE DEBUGGER 15*SEP=1984 23:4 
Vos ourpute - BuTPUT ADDRESS ez§ et 7 83:68 
4A 50$:  MOVL SP .RO : 
4A $Q10w_S EFN=#30,- 
4A CHAN=TTCHAN,= 
4A FUNC=#10$_WRITEVBLK,- 
4A 4 Pi=(RO),= 
4A 5 P2=#1 
4A : CMPY «=—sRO,, #SSS_INSFMEM 
4A BEQL 608 
4A 3 \ CMPW =: RO, #SS$_EXQUOTA 
4A BEQL 608 
4A 940 CMP RO, #SS$_EXQUOTASTRT 
4A 94 BLSsSu 908 
4A 94 CPW §=s- RO, #@SS$_EXQUOTAEND 
54a 94 BGT U § 
54A 944 60S: WAITERS EFN=#30 
348 45 BRB 0$ 
4A 46 90$:  POPR #*M<RO> 
54a 9G EN 
05 054A 948 RSB 
548 949 OUTSPACE: 
50 20 9A 0548 950 MOVZBL #32,R0 
£4 11 0546 951 RB TCHAR 
50 OD 9A 055 956 CRLF: MOVZBL #CR,RO 
DF 610 0553) «(95 SBB sO OUTCHAR 
50 OA 9A 0555 954 MOVZBL @#LF,RO 
DA 11 0558 955 RB OUTEHAR 
5A 956 
55a 9S 
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DELTA.SRCJXDELTA.MAR; 1 
SAVE POINTER TO IT 


BUFFER ADDRESS 


; ONE CHARACTER 
3; 5f ony resource error occurs, 
° 


wait for an 1/0 completion 
and try again. 


RESTORE CHARACTER 
AND RETURN 
SET CODE FOR SPACE 
AND SEND IT 
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CHAR = GET INPUT CHARACTER ROUTINE DELTA. SRCIJXDELTA.MAR; 1 V 
A 59 ~SBTTL GETCHAR = GET INPUT CHARACTER ROUTINE 
A 3 
‘ 3 GETCHAR = GET INPUT CHARACTER 
A 4 ; OUTPUT: 
A 5; R&B = INPUT CHARACTER 
/ $6 ; R9 - BUFFER POINTER UPDATED (BUFFER IN ASCIZ FORMAT) 
A 
A $3 GETCHAR: 3 
A p MOVZBL (R9)+,R8 : GET NEXT CHARACTER 
p , BEGL 10$ : READ IF NONE AVAIL 
220 378 10$: MOVAB INBUF-B(R11),R9 ; SET ADDRESS OF INPUT BUFFER | 
366 a7 IF NDF ,SW_PROCESS ; 
564 975 208: TSTL = AP ; CHECK FOR CONSOLE | 
206 378 BNEQ 30$ ; 
56 7 J$8 G*CONSGETCHAR : GET A CHARACTER FROM THE CONSOLE TERMINAL | 
36 978 MOVB = RO, RB 3 | 
6 97 BRB 6 3 CONTINUE IN COMMON | 
573 980 30$: MOVW RDCR(AP),RO : GET STATUS 
576 «= 981-40: BBC 8 : WAIT FOR READY | 
S7A 9 é MOVB = RDBUF (AP) RB + GET CHARACTER 
57 g BRB 60$ 3; MERGE WITH COMMON 
§ 984 WIFE : FALSE IF PROCESS VERSION 
5 985 15$: MOVAL TU LTO $4.80 ; get the relocateable address 
280 986 $Q10W_S EFN=#31,- ; 
5 9 CHAN=TTCHAN, = ; INPUT DEVICE CHANNEL 
5 9 : ICSB=TTIOSB,- ; 10 STATUS BLOCK 
5 9 FUNC=#<10$_READVBLK! 1OSM_EXTEND> = : | 
5 990 P1=(R9),- T BUFFER ADDRESS 
5 991 P2=#80,- : READ SIZE 
5 836 P5=RO0,- 
5 99 poset TMLSTLEN | 
5 994 CMPW RO ,@SS$_INSFMEM 3 if any resource error occurs, 
5 995 BEQL 766$ 3; wait for an 1/0 completion 
5 44) rer RO, #SS$_EXQUOTA ; and try again. 
H 38 CMPW «=s_- RO. #SS$_EXQUOTASTRT 
3 9 BLSSU $ 
1 9 CMPW =. RO, #SS$_EXQUOTAEND 
580 1 BGTRU $ 
1 j 7608: WAITERS EFN=#31 
1 RB 5$ 
1004 790$: 
1005 MOVZWL TT10SBe2.RO ; GET SIZE READ 
3 1 6 mOVB 1110 B+4, (RO) +CR9) : BUFFER TERMINATOR 
1 CLRB 3s (9) CROJ + MARK END UFFER 
1 ML RO_R + POINT TO START OF STRING 
1 208: V2BL (RE)+ RB ; GET A CHARACTE 
! BEQL 15 : EMPTY, READ SOME MORE 
1 i 608: BICB. #*x80,R8 : STRIP PARITY 
, 13 care R8, #RUBOUT : CHECK FOR RUBOUT 
A 1015 BBSS #V_RUB,(R10),708 + SET START OF RUBOUT SEQUENCE 
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ECUTIVE DEBU 15-S AX/VMS Macro v04-00 Page 
Sere HAR = GET pusGER CHARACTER ROUTINE a $EF =1382 83; $8; ¢f DELTA. SRCJXDELTA.MAR; 1 . ¢, 
FFOA =. 30 101 BSBW ss OUT SLSH ; output BACK SLASH 
58 3 3 gf 1 9 70$: MOVZBL =n9) : GET RUBBED OUT CHA 
on 9% 1 18 BNEQ : SKIP IN 
9 D ; 101 INCL gos : POINT AT START OF BUFFER 
cA 1 1020 BRB 208 ; AND GET ANOTHER 
FFSG 30 A 1021 80$:  ®8SBw TRB : OUTPUT nUBBED OUT CHAR 
5 11 0590 1 : BRB + AND GET ANOTHE 
03 6A é 3 59F 1023 90$:  BBCC #V_RUB,(R10),100$ : TERMINATE “RUBOUT SEQUENCE | 
FF 0 05A3 1024 BSBW Sé«Od OUTBSL SH L$H + OUTPUT BACK SLASH 
03 58 06 7 A6 1025 1008: BBC 110$ : BR I ALPHA | 
A AA 1 : nei B1CB Ate rb + SET TO UPPER CASE 
AD i : IF NDF SW_PROCESS : 
FFB1 30 3AD ; BSBu ouTR + ECHO CHARACTER 
89 58 20 $89 1031 MOVB RB, (ROD+ : BUFFER NEW CHAR 
FBFE CF OA 58 3A 0583 1 ‘ LOCC 8. #NTERM, TERM : CHECK FOR TERMINATOR 
A913) «0589 1 BEQL = 2 + NOT A TERMINATOR 
58 Op 91 0588 1034 CMPB Os # CR, RB ; 1s CHAR = RETURN 
12 SBE 1035 BNEQ 1208 ; 
FF8D 30 05C0 10 6 BSBW sR : veé, SEND CR/LF 
69 94 05¢ 19 120$: CLRB (R9) : MARK END OF BUFFER 
59 84 AB 9E 05C5 1038 MOVAB INBUF<BCR11) RO : RESTORE BUFFER BASE 
FFBE 31 05¢9 1039 BRW GETCHAR : AND TRY AGAIN 
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DEBUGGER 15-SEP-1984 :40:27 VAX/VMS Macro v04-00 Page 27 
OPERA ons mit} 83:69:85 DELTA. SRCIXDELTA.MAR; 1 4) 
i .SBTTL PLUS/MINUS OPERATORS 
43 ; PLUS/MINUS OPERATORS 
1045 BLANK: : SAME AS PLUS 
1 46 OPERATOR: ; 

104 BSBW  —- ENDEXPR + END EXPR 

1 48 SUBB3 #OPERBAS,RO,OPER-B(R11) : SET OPERATOR 

49 RSB > RETURN 

: : MONADIC MINUS = NEGATE 

1 § NEGATE: TSTL RR : TEST ACCUMULATOR 

1 34 BEQL : EMPTY 

1055 BSBW = ENDEXPR + OTHERWISE PERFORM OPERATION 
1 36 5$: XORB = #<1@V_NEGATE>, (R10) : TOGGLE NEGATE FLAG 

H 10$:  RSB + AND RETURN 

105 


IVE DEBUGGER 15=SEP=1984 23:40:27 VAX/VMS Macro v04-00 Page 28 
Ayers DISPLAY a§ et 7 83:68:85 YOELYA SRE XDELTA.MAR; 1 ve a) 
.SBTTL TAB = INDIRECT DISPLAY 
| 3803 te 
1 1065 fAB: MOVL $QUAN-B(R11),CURDOT-B(R11) : GO INDIRECT 
5 1 66 EXTZV #V PRMODE #i-(R10),RO  ; GET PROCESSOR REGISTER MODE 
A 106 INSV RO; #V_PREG, #1, (R105 ; AND COPY TO SEMI-PERMANENT FLAG 
F 4 8 BRB Lote + AND DISPLAY IT 
1 188 
1 1071 : ESCAPE = DISPLAY PREVIOUS LOCATION 
1 18% | 
1 1074 ESCAP: ; 
1 1075 BBS #V_INSTR, (R10) ,LOCP + BRANCH IF INSTRUCTION MODE 
3 107 MOVL #1-R1 + ASSUME UNIT INCREMENT 
107 TSTL (R10) : CHECK FOR PROCESSOR REGISTER 
A 1 78 BLSS 108 : YES, USE UNIT INCREMENT 
C 107 ROTL CURTYPE-B(R11),R1,R1 + FORM INCREMENT 
2% 80 10$: SUBL = R1, CURDOT-B(R11) t AND SUBTRACT FROM DOT 
4 1081 LOCP:  BRW LOCPROMPT + PROMPT WITH CONTENT 
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~SBTTL DISPLAY INSTRUCTION RANGE 
"I = DISPLAY RANGE OF INSTRUCTIONS 


AX/VMS Macro v04-00 
DELTA. SRCJXDELTA.MAR; 1 


; TERMINATE FIELD 
(R10) : CLEAR CHARACTER DISPLAY MODE 
#v_FT, (R105, 5$ : ADDRESS SPECIFIED? 
QUAN-6(R11).CURDOT-B(R115 ; EXAMINE AT Q IF UNSPECIFIED 
F1-B(R11) CURDOT-B(RI1) : If ADDRESS SPECIFIED, SET NEW DOT 
#lav_INSTR, (R10) : SET INSTRUCTION DISPLAY MODE 
U : DISPLAY INSTRUCTION 
#V_F2,(R10) , 308 : IF NO RANGE SPECIFIED, EXIT 
F2=B(R11),CURDOT=-B(R11) : END OF RANGE? 
$ + BRANCH IF DONE 
NEXTLOC + OUTPUT NEXT INSTRUCTION 
208% ; LOOP UNTIL DONE 
RESET + RESET SCANNER 
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MODE SELECTION 


T 

11 

1 

11 

11 

i 

1 ASC 
1 § ASC 
we te 
1165 ASC 
1 NMODE S=.-MOD 
11 

1188 LBRACKET: 

11 y BSBW 
117 LOCC 
1158 BEQL 
137 CMPL 
1174 BEQL 
1175 BGTR 
1378 SUBB3 
117 BICW 
BA 5$: BICB 
117 RSB 
1180 108: BISB 
1181 BICW 
11 ; RSB 
1185 208: BISW 
1184 BRB 


“BSEe= TSBs 85:08:95 FOL YRS Rages yeh CO. 
.SBTTL LEFT BRACKET = MODE SELECTION 


LEFT BRACKET 


‘i/ 
‘C/ 
/U/ 
/u/ 
/8/ 


GET CHAR 
RB, #NMODES MODES 
ERRG 

106 

208 

#1,R0 CURT YPE=B(R11) 
#iav_{nstr, (R10) 
#<lad_ASCif>, (R10) 


#<lav_ASCII>, (R10) 
#av_TNSTR, (R10) 


#1aVv_INSTR, (R10) 
5$ 


mH) |e 


ween CHARACTER me 

INSTRUCTION MODE, VARIABLE LENGTH 
CHARACTER, CURRENT LENGTH 

LONG, HEX 


EX 
OF MODE CHARACTERS 


MODE SELECTION 
MO 


DISPLAY MODE 
ISPLAY MODE 
L 


I 
. RD 
CHARACTER DISPLAY MODE 
CLEAR CHARACTER DISPLAY MODE 
SET INSTRUCTION DISPLAY MODE 


Be Sara ae TY tae 


é 
| (betb00 SINGLE SHER eUOOER BSE Skt 65:08:85 EDECYRSSReSnbetSacmun:1 88° 3, 
1186 .SBTTL SINGLE STEP 
1 8 ; STEP 
A "0008600 it cA iN8 STEP: ere. Bcc1a0 PRRODES | lav preso gy ser lean P PROCESSOR REGISTER M 


24 
STEPOVER «STEP OVER ROUTINE CALL Br 8eTr188e Boioesss LORCA sReGeberfAcnon:1 «=| '88® HH, 


D6BE 1 : .SBTTL STEPOVER = STEP OVER ROUTINE CALL 
bBE i ; STEPOVER 
6BB «1198 STEPOVER: 
oft BB 9a 0688 1 MOVZBL QSAVEC-B(RIT), RO GET NEXT INSTRUCTION. TO EXECUTE | 
oA 8 F CA O6BF 1 BICL <<lav PRMODE>! <lav _PREGS> (R10 CLEAR PROCESSOR REGISTER M 
51 FACF CF C6 1 MOVAB OvERoPCOD : ho DRESS oF ust OF OPCODES 
é A 06¢CB 1 ‘ MOVZBL SEROPCLENCA Re ; SIZE 0 TABLE 
BCE 1203 108:  CMPB  RO,(R1)¢ : MA Ene 
1 1 1 BEQL 2 §' : BRANCH IF FOUND 
fe F 63 1205 SOBGTR R2,108 ; LOOP UN IL FOUND 
6 1 £6 1 6 BRB : IF NOT A ROUTINE CALL, NORMAL 
52 00000000 GF 5 608 1207 20$: ## MOVAB Gok IBSINSDECODE .R2 + GET ADDRESS OF FOLLOWING INSTRUCTION 
re SDF 1 BEQL 0 + IF NOT AVAILABLE, ERROR 
54 As DD 0661 1 PUSHL SAVPC-B(R11) : COPY ADDRESS OF IustRucTION STREAM 
g DD 06€4 121 PUSHL #0 ; PUSH NULL DESCRIPTOR 
— 0D bE6 121 PUSHL 5P + ADDRESS OF OUTPUT DESCRIP 
08 AE OOF 0668 1 1 PUSHAL &(SP) ; ACCESS INSTRUCTION STREAM DIRECTLY 
he 9 F EB 121 CALLS #2, (R2) : FIND ADDRESS OF FOLLOWING olNSTRUCTION 
08 E Ef 1 1 BLBC Esa, : IF NOT INTERPRETABLE, ERR 
FT 121 vIF DF. SW_PROCESS : 
Fl 1 1 MOVL _- 4 §P) TRA $ GET ADDRESS OF NEXT INSTRUCTION 
Fl 121 MOVL RG, RS + MAKE END=START 
Ft 18 BSBu SEfWRT : MAKE INSTRUCTION WRITABLE 
03 Fl 1220 POPR #*M<RO,R1> : GET UPDATED STREAM POINTER 
61 $1 F3 1201 MOVB = (1), (R11) ; ERROR IF UNABLE TO WRITE BREAKPOINT 
FAOD CF 1 3 F6 1 § MOVL R1,OVRADR : SET TEMPORARY BREAKPOINT 
4 ore ; RET ; START EXECUTION 
SE 08 CO O6FC 1225 58: ADDL #8,SP ; CLEAN STACK 
FADS 31 O6FF 1226 30$: BRW ERROR + REPORT ERROR = UNABLE TO STEP OVER 


Kk 6 
XDELTA = EXECUTIVE DEBUGGER 15-SEP-1984 AX/VMS mag ro V04-00 Page 35 x! 
Os ¢000 BRKPOINT - shite can BREAKPOINTS 3=§ oats vi 83; 8; gf DELTA_SRCM XDELTA.MAR;1 ef MD. V 
? 1 ~SBTTL B®RKPOINT = SET/CLEAR BREAKPOINTS 
f 1380 § BRKPOINT 
702 1 Lou ; 
59 6A : £1 0702 1 BBC #V_F1, (R10), SHOBRK + DISPLAY BREAKPOINTS 
13 6A £0 0706 1 BBS #V~F2, (R10) 208 : YES, IT WAS SPECIFIED 
g 1 DO O70A 1 MOVL : INIf INDEX 
F9D crag : 70D 1 6 10$:  TSTL RKADRERZI + FIND FREE SLOT | 
1 7i2 1 BEQL 0$ : YES, GOT ONE | 
FFF3 52. 01 als 4 aly : ACBL @NBRK ,#1,R2, 108 3 CHECK THEM ALL | 
52. DC AB p 71D 1 M3: MOVL f -B(R11) ,R2 + GET BRKPOINT NUMBER | 
FA 7 } 104 BEQL Ss ¢ NULL FIELD, SCAN FOR SLOT | 
52 723 124 CMPL #NBRK,R2 + CHECK FOR LEGAL | 
F 9 07 6 124 BLSS 15$ + OUT OF RANGE | 
FOES CF42 D4 0728 1244 30$: CLRL BRKDSP R2} + CLEAR DISPLAY | 
FOFF cra D4 0720 1245 CLRL  BRKCOMER + CLEAR COMMAND ADDRESS 
50D As DO 0732 124 MOVL 1-B8(R11),RO : GET BREAKPOINT ADDRESS | 
03 (1 , 4 BEQL Ps semeil + ALLOW CLEAR OF BREAKPOINT | 
738 126 PUSHR #*A<RO,RI he R3,R4,R5> ; SAVE REGISTERS FOR PROTECTION CHANGE 
738 1250 MOVL RO,R4 : SET START ADDRESS 
738 1251 MOVL  RO.RS + AND END ADRESS | 
738 (1 38 BSBW 40s SE fwRT + SET PAGE WRITABLE 
, : MOV (SP) ,RO + RESTORE ert ADDRESS | 
60 60 90 0738 1 3 VB (RO), (ROD : TEST WRITABILITY OF ADDRESS | 
738 1 36 IF DF ,SW_ PROCESS ; 
738 1 8SBW =: REPROT ; RESTORE PROTECTION 
? 38 POPR #°M<RO,R1,R2,R3,R4,R5> : AND REGISTERS | 
OC 6A OA €1 0738 1 60 35$: BBC #V_F3, (R10) ,40$ + DISPLAY SPECIFIED? | 
FOCB CF42 CEO AB DO O73F 126 MOVL 3=B(R11),BRKDSPCR2]  : SET DISPLAY START 
13 0746 1 6¢ BEQL 4 $ : SKIP test IF NULL 
£0 D5 0748 126 TSTL  a@F 3-B(R11) : CHECK READABILITY 
07 6A E1 07468 1264 40$: BBC #v_F4, (R10) ,45$ : SKIP IF NO CORMAND ADDRESS | 
FODB CF42 ES DO O74F 1265 VL  F4=B(R11),BRKCOMCR2] : SET COMMAND STRING 
F9BB CF42. = 5 0756 1 66 45$ MOVL RO, BRKADRER2) : SAVE BREAKPOINT ADDRESS 
FEEG %4 ¢ 6 RW RESET : RESET SCANNER AND RETURN | 
75 1 é9 : SHOBRK 
75F 1 : 
75 1 9 SHOBRK : 
rH 01 D 75F 61 VL #1, : INIT INDEX FOR LOOP 
58 F970 CF45 00 0762 1273 108 MOVL BREADRERS,RB : GET BREAKPOINT ADDRESS 
i 13 0768 1274 BEQL os : SKIP IF NULL | 
Srogs 8 Bes Tee evi srw 
43} 8 127 BSBW OUTDIGIT : BPT NUMBE | 
FD 0773 (107 BSBW OUT SPACE : SPACE | 
53 O76 127 MOVL R8B,R3 : ADDRESS OF BPT 
FD 0779 1 6 BSBu oufL ONG + OUTPUT ADDRESS 
FOC 077¢ «1 BSBW ©: OUTSP ACE : SPACE OVER 
53 F9BD CF4 p O77F 1 : MOVL BRKOSP R5),R3 : GET DISPLAY START 
Q 7 5 1 BEQL 5$ : 
FDO7A «30 «(0787 «(1284 BSBW OUTLONG : OUTPUT DISPLAY START 


BREPO af BREAKPOINTS ie RSE T13RS 60:08:95 YORCYASSR2SKBeLoAcmae;1 = PA8® i, 


53 FOA2 CF45 A toe MOVL RKCOMCRSJ RS 3 GET COMMAND STRING ADDRESS 
+4 BEQL OF 3 NONE 
FDB BSBW SPACE ; SPACE ANO THER 
f +4 ? ‘ BSBW OUTLONG AND oe A LONGWORD 
FFC4 55 7? 1 208: ACBL #@NBRK ,#1,R5,108 ‘ : DO THEM 
79— 1 BRW CRLF ; AND EXIT. THROUGH CRLF 


6A 80008000 8F A 
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n 6 
RECUTION AT SPECIFIED LOCATI 'SasEP=l94 60:66,95 


Page 37 
. (1) 


AX/VMS Macro v04-00 
DELTA. SRCJXDELTA.MAR; 1 


~SBTTL GO = START EXECUTION AT SPECIFIED LOCATION 


60 

BBC _F1, (R10) ,PROCED ; JUST PROCEED IF NO VALUE 

MOVL F128 (R11), SAVPC=BCRT1) + SET NEW PC 

BRW PROCED t FALL INTO PROCEED 

PROCEED 
ICL - #<<1@V_PRMODE>!<1aV_PREG>>, (R10) ; CLEAR PROCESSOR REGISTER M 
ET ; RETURN | 


ita al 


——— 
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i Page 
N 6 40:27 YAX/VMS Macro V04-00 ; 
= Peo] 4 74 ™ TA.MAR; 1 
an Ree gene agin ea atone 
x SEM sa’ 
Nes : ; vated EXPRESSION 
; INATE 
p7Be | ,; NDEXPR : SET Pld FOR PROCESS 
™ i pag | CoLon: Sg RY PID-BCRI1) g Teer eccumn TOR 
FO AB 13] CLRG : 
of Be RSB 
05 0788 131 : FY FLAG ADDRESS 
APBE 1318 MFYFLGS:MOVAL MFYFLG-BC(RI1) RI Bet eee UALuE 
= eh Tie i 1 MOVAL CORDOT=B(RI1) 1 £38 eh 
ga Sk ORE ObeS i318 OO" da WV-PRAGOES(RIOY-VALR ves, SET PROCESSOR REGISTER MODE 
18 6A iF ; BBSS = #V P ’ ; READ VALU 
F orc 131 ACR ; ANTITY ADDRESS 
7 ¥ i ul DPEr 1351 QUANT: MOVAL QUAN-BCRT1) RI READ VALUE 
51 BRB : 
11 0703 4 é RESS 
oc 0705 1 : PROGCTR MOVAL  SAVPC“B(R11).R1 ; i Plat VALUE 
4 on” 08 EL O79 1395 VALUE: BB F=piRII CRUE ; SET NEW VALUE FOR PC 
ei 8 MB DO ate $ AUR: ROVE (RID R6 ; AND GET VALUE ” SET FIELD IN PROGRESS 
rasa SY ores : Velen IMS ET BASE OF REGISTER AREA 
i te pag tee i SET BASE OF 
ee a hee 
1 O7ED 1 ; HAR é 10 
D6 30 EP 1358 nescon: LoCe. | RB.#16, PRIMARY t FOR PROCESS VERSION 
9A6 CF 10 $8 A O7F2 1 : IF DF SW_PROCESS : AL HEX DIG 
' 3 BNEO ; CHECK FOR EXIT COMMAND 
Ee lees CHP B*ALXI/ ,=2(R9) : Sia FEST ieee ue oy ons th aatiil 
fa aE tt STL ASTEN-BCRIT) t TP EOL NO, DON'T. REENABLE THER HERE 
FR 1340 EQ. 3s ; YES, UNDO'AST DISABLE BY DEL 
EB 18a) SSETAST_§ : Exif 
D7 F 42 5$: SEXIT_S”EXITCODE ; 
aE 23 eto. i ERR3 ; ERROR, NOT HEX 
O7FA 1345 . ; RT 
D7FA 1346 108: RO, #16, RO SE OULATE 
50 10 650 C3 O7FA | i ROVAL  tRSIEROS RG ¢ RETURN 
56 6540 OF 136 RSB pi ; ERROR IF NOT Tuo FIELDS 
rg 8 OE? mens Bttay ebcat teach heat : Rh COMPUTE REGISTER ADDRESS 
x . . Vv 
m es £943 cra oF i 4 ako VALUE ; ReREGISTER VALUE. VECTOR 
13 | $ me nova. REGCOA ADDRESS T6 Re 
Soe RARE BR HR | SAN) Brut IB UF aout 
8 one i ALIGN LONG ACCESS VIOLATION HANDLER 
} 1 é XDELACV >; MACHINE CHECK 
4 1362 MCHK 


8 7 
= EXECUTIVE DEBUGGER 15=SEP=1986 23:40:27 VAX/VMS Macro v04-00 Page 39 | 
SEMI-], PC VALUE 3-8 sat} 7 83:69:85 DELTA. SRCJXDELTA.MAR; 1 ne (1) | 

4 1 3 IF NDF ,SW_PROCESS : | 
5¢ 05 4 1364 TSTL«=soAP + CHECK FOR SIMULATOR 
4 se BNEG  ERR3 : YES, SKIP RES 
136 F 
1 68 CPUDISP <<780,CLR_780>.- + *DISPATCH ON CPU TYPE® 
1 § <750,CLR_750>,- 3 
1 : <730,CLR-730>,- 
137 <79 CLR-790>, = 
1 i *CLR“UV1>>,= 
: t3 EN ROMCROLY TA; 
F 1375 CLR_780: : FOR 11/780: 
30 0 a id: MFPR —s #PRS SBIFS -(SP) + GET ERROR BITS 
19 € 42 137 BBCC =_- #25, TSP) , 108 : CLEAR ERROR 1ST PASS BIT 
BE DA 0846 1 28 10$: MTPR (SP5+, SHPRS. SBIFS : CLEAR SBI FAULT 
1D «Oo 49 43 BRB CLR_END + ERROR CLEARED 
48 1381 CLR_UV1: > FOR MicroVAX I 
48 1 ; CLR 30: : FOR 11/730: 
48 1383 CLR-750: : FOR 11/750: 
OF DA 0848 1384 #°XF ,WPRS_MCESR + SET 1 TO CLEAR MCHECK ERROR SUMMARY 
18 «11 4 5 ao ee BRB CLR_END ; 
7E  Q000004A 8F DB 50 1 $ ~ ""MEPR —s #PRS_EHSR,-(SP) : GET ERR HANDLING STATUS REGISTER 
06 € 57 1 8 BBCC #6, (SP), 10$ + CLEAR VMS ENTER ED BIT 
Q000004A 8F BE DA 0858 1 10S: MTPR  (SP)+,#PR$_EHSR : WRITE BACK TO CLEAR 
00000000°EF 16 6 30 JSB SYSLSCLRSBIA : CLEAR SBIA ERROR BITS 
ts 36 CLR_END: : *END OF CPU-DEPENDENT CODE®* 
68 139% : 
ts i 3 10$ — : 
F96B 31 Be 1397 ERR3: RW ERROR + AND DECLARE ERROR 
0868 1398 


| 


¢ 7 
= EXECUTIVE DEBUGGER 15-S$ P-1 AX/VMS Macro v04-00 Page 
REGISTER SAVE AND RESTORE arSee 1 8Be Boicasss LOR YRS Regree veg -O0,. ° 
6B 14 .SBTTL REGISTER SAVE AND RESTORE 
# i 
68 14 $ ; SAVE = SAVE TARGET REGISTERS, PC, PSL 
68 1405 Save : 
68 14 : IF NDF , SW_PROCESS ; 
68 14 SETIPL #31 > DISABLE 
90000000" EF $f 14 : JSB IWISWRITABLE : MAKE THE SYSTEM WRITABLE 
FBIF CF 650 =D 14 MOVQ RO, SAVREG + SAVE RO.R1 
51 F823 CF 9E 0879 1410 MOVAB SAVRO : SETUP BASE FOR REMAINING REGS 
7E 1411 1FF + FALSE IF PROCESS VERSION 
7E 1418 $SETAST_S #0 ; DISABLE ASTS 
7E 141 PUSHAB ~=(RO) ; SAVE ENABLE VALUE-1 
7E 1614 MOVPSL R GET CURRENT P 
7E 1615 EXTZV aPslsy CURMOD, APSLSS_ curho OD, R1,R1 ISOLATE CURRENT MODE 
O87E 1416 MULW NTERTS : COMPUTE OFFSET’ TO PROPER CONTEXT AREA 
O87E 141 MOVAB SAVREGER: Ri + FORM ADDRESS OF REGISTER SAVE 
0 7E 1418 MOVL AP) ,RO : GET POINTER TO MECHANISM 
ze 1419 MOV 12(RO$,(R1)+ + SAVE RO,R1 
81 52 7D Sere 1421 VQ -R2, (R1)+ > SAVE R2,R3 
BA SS’ 088} 14 é MOV R4.(R1)¢4 : SAVE R4.R5 
81 56 7D 8 ‘04 MOVQ R6.(R1)¢ > SAVE R6.R7 
1 38 7D 0 87 1424 MOV RB.(R1)¢4 : SAVE R8.R9 
81 5A 7D O8BA 1425 MOVa R10, (R1)4 + SAVE R16,R11 
088D 14 b IF NDF .SW_ PROCESS ; 
81 SC 7D O88D 14 MOV = AP, (R1S+ : SAVE A 
81 OC AE 9E 0890 1428 MOVAB 12(SP),(R1)¢ + ASSUME "KERNEL STACK 
Vv ” + 3 SAV 
81 04 AE 7D 34 14 3 mova 4(SP),(R1) SAVE PC,PSL 
98 1431 MOVO 8(FP),(R1)4 ; SAVE AP 
898 14 : SUBL3 #1,@4(AP),RO : 1 NUMBER OF ARGS IN SIGNAL 
089 14 MOVAL 94 (AP)EROI RO : Se INT TO PC,PSL 
0 98 1434 MOVAL 8 (RO),(R1)+ + COMPUTE SP 
(R14 > SAVE PC,PSL 
3 14 5 Ova (RO), (R1) SAVE PC,PS 
38 14 $ “IF NOF Su_PROCESS : 
52. 51 00 B98 «1438 MOVL RILR : SAVE R1 
00000000'GF 1 B98 1439 JSB G*CONSOWNCTY : ALLOCATE THE CONSOLE TERMINAL 
8 0 p0 BA1 1440 MOVL RO, (RZ) : SAVE CONSOLE TRANSMIT STATUS 
h 1 BAG «1441 MOVL  R1.(R2)+ ; SAVE CONSOLE RECVR STATUS 
51 52 00 OBA7 1448 MOVL = R2. RT : RESTORE R1 
5¢ D4 BAA 146 CLRL AP : ZAP DEVICE ADDRESS BASE 
5B F700 CF 9E OBAC 1444 20$:  MOVAB. B,R11 + AND DATA BASE ADDRESS 
BB1 «1445 J IFF ; FALSE FOR PROCESS VERSION 
8B 1 1446 MOVAB W*<B-<SAVPSL+4>>(R1) R11 SET BASE OF CONTEXT AREA 
+4 144 MOV (SP) +, ASTEN-B(R11) : SAVE AST ENABLE 
5A 4 AB 9E 0881 1249 MOVAB S$TATUS-B(R11),R10 t SET STATUS BASE 
9 84 AB 9 0885 1430 MOVAB INBUF-B(R11),R9 : POINT TO INPUT BUFFER 
69 94 0889 1451 CLRB : MAKE BUFFER EMPTY 
BBB O14 § IF NDF , SW_PROCESS ; 
009% 30 088B 14 BSBW : GET BASE OF SCB 
F8D1 CF AO p BBE «1454 MOVL (RO) ,MCHKSAV ; SAVE ORIGINAL MCHK VECTOR 
4 AO FFSC CF 9E OBC 1455 MOVAB MCHK,4(R : SET TO XDELTA V 
OAO FFS6 CF 9E OBCA 1456 MOVAB XDELACV,*x20(RO) : SET ACCESS VIOLATION VECTOR 


He 


ESTORE: RESTORE EVERYTHING 


dD. 7 
- EXECUTIVE DEBUGGER 15=SEP=1984 23:40:27 VAX/VMS Macro v04-00 Page 41 xO 
RE iE R SAVE AND RESTORE a ett 9 83:08:85 DELTA.SRCIXDELTA.MAR: 1 et) 3 
FF 0 7 ROvAS 4 treater best : SET PG FAULT VECTOR 
FF D : MOVAB XDELACV,*X18(RO) : SET RESERVED OPERAND HANDLER 
50 OB AE 02 D EXTZV #PSL$V_CURMOD,#PSL$S_CURMOD,8(SP).R : GET MODE 
0 BEQL : CORRECT ALREADY IF KERNEL 
50 1 ADDL #PRS$_KSP,RO + COMPUTE PROCESSOR REGISTER 
; EPR RO, SAVSP-B(R11) ; AND SAVE CORRECT SP 
4 30$: BRW RESET + RESET SCANNER 
$ RESTORE = RESTORE TARGET REGISTERS 


04 AE 54 AB 7D SET PC,PSL 

FALSE [Ff PROCESS 

GET SIGNAL ARG COUNT | 
COMPUTE ADDRESS OF PC,PSL | 
STORE UPDATED PC,PSL 


: RESTORE REGISTERS ONLY 
IF NDF , SW_PROCESS 
GETSCB 
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1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1385 
18 
1298 
1674 
5 
HE 
5D 10 1 3 GET BASE OF SCB | 
20 AO QO0000000°EF  9E 1480 MOVAB EXESACVIOLAT,*X20(RO) : RESTORE ACCESS VECTOR | 
4 AO 90000000'EF 3 1481 MOVAB MMGSPAGEF AULT, “x24 (RO) : AND PAGE FAULT VECTOR 
04 AO FBBC CF D 1 ‘ MOVL MCHKSAV,4(RO) RESTORE MACHINE CHECK VECTOR 
18 AO 00000000 EF i 908 1 MOVAB EXESROPRAND,“X18(RO) * RESTORE RESERVED OPERAND VECTOR 
C BS 0913 1484 TSTw AP : CHECK FOR CONSOLE 
10 12 0915 1485 BNEQ 108 NO, OTHER DEVICE 
50 SCAB 00 0917 1 6 MOVL § SAVOCR-B(R11) ,RO : RESTORE INITIAL TX STATUS | 
51 60 AaB 00 0918 1 MOVL SAVRXCS-B(R115,R1 : AND INITIAL RECEIVER STATE | 
00000000'GF 16 O91F 1488 JSB Gr CONSRELEASECTY 
09 «11 3 5 ; BRB 0$ MERGE WITH COMMON CODE | 
04 AC SC AB. BO 0927 1491 10S:  MOVW  SAVOCR-B(R11),OUTCR(AP) ; RESTORE OUTPUT CSR | 
6C 5E AaB BO ; : nov SAVRCR-B(R11),RDCR(AP) : AND INPUT CSR CONTENT | 
4 34 PUSH ASTEN-B(R11) + SAVE AST ENABLE | 
51 2008 9€ 0930 1 %6 20$: MOVAB SAVR2-B(R11),R1 + SET BASE FOR RESTORE 
52. 81 7D 0934 149 MOVa = (R1) +, R2 + RESTORE R2.R 
54 «81 Oo 7Ds0937 «1 98 MOV = (R1) +. RG : RESTORE R4.R 
56 81S 7DsC93A «149 MOV  (R1)4_R + RESTORE R6.R7 
38 1 7D 0930 1 0 MOVa (R1)¢-R : RESTORE R8.R9 
A 81 7D 0940 1 MOVa  (R1)4#.R10 : RESTORE R16,R11 
943 1 ‘ IF NDF ,SW_PROCESS : 
5c 081s 7D C094 13 mova = (R14, AP > RESTORE AP,FP 
50 F?6E CF 7D 0946 1504 MOVO  SAVREG,RO + RESTORE RO.R1 
948 1505 .IFF : FALSE IF PROCESS VERSION 
948 1 : MOV =—s-« (R11) +, BC FP) > SET NEW VALUES FOR AP,FP 
948 1 MOVL (AP) -RO : GET MECHANISM POINTER 
948 1 8 MOVG  <SAVREG-SAVSP>(R1),12(ROS - STORE UPDATED RO,R1 
948 1 MOVPSL : GET CURRENT PSL 
948 1 19 EXTZV  #PSL$V_CURMOD ,#PSL$S_CURMOD,R1,R1 - GET CURRENT MODE 
348 ee BBCC R1,DBGACTIVE, $08 : CLEAR ACTIVE BIT FOR MODE 
948 1 18 TSTL (SP) : CHECK FOR AST ENABLE 
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R SAVE AND RESTORE -SEP- DELTA. SRCJXDELTA.MAR; 1 (1) 
48 1 1 BEOL 35$ : NO 
48 -—, SETAST_S rt ; RE~ ENABLE AST RECOGNITION 
948 1 i$ — ; 
948 1 18 w IF NDF ,SW_ PROCESS ; 
00000000'EF 16 48 151 J$8 INI $RDONLY t REPROTECT THE SYSTEM CODE 
3 1 $0 ~ENDC 3 
05 0951 1521 RSB + AND RETURN 


xD 
vO 
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@SEP=1984 


-SBTTL GET SCB ADDRESS 


; SUBROUTINE GE 
; ADDRESS OF TH 


; INPUTS: 

; OUTPUTS: 
If 

GETSCB: MFPR 
BNEQ 
MFPR 
BRB 

10$: MOVL 

20$: RSB 


DELTA.SRCJXDELTA.MAR; 1 (1) 


SCB_IS CALLED TO GET THE PHYSICAL OR VIRTUAL 


T 
E CURRENT SCB. 
NONE 


RO = 


SCB_ ADDRESS 
OTHER REGISTERS PRESERVED 


NDF ,SW_PROCESS 
wren MAPEN,RO 
gPRS_SCBB.RO 

EXESGL_SCB,RO 


NOT FOR had 34 _—— 
BRANCH IF MAPPING gmnere® 


JOIN COMMON RETU 
IF MAPPING ENABLED, GET SCB VA 
RETURN 


x0 
va 


arty 


00 20 54 41 20 4B 52 42 20 


free 


F788 CF 854 
FF6E 
7E 06 AE 
00000000 ' EF 
0096 
F76F CF 
40 
6A «18 
4D 58 moe 
3858 
FBAS 
F651 
54 a Bed 
53554 
FB4 
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& =F3S 


_—J S-sses 
So Owoo 


CUTIVE D 
RAP HANDLER 


PDP PP PPPPPAMMONN 


SSsssesrasssse 


w 


& 
So 
ee 


OUTPC: 


UNB 
WHS rib TBIT, savest-2cR115, 


4 
~ 
ee 


BSBW CALF 
BSBW OUTDIG 1 

MOVAB BMSG 

BSBW QUTZSTRING 

MOVL  SAVPC-B(R11),R3 
BSB 


L 
MOVL tos R5),R1 
URDOT-B(R11) 
ates INSTR, (R10) 
Yd ee 
1P 


MOVL Ri. R 


SAVPC-B(R11) cunpot-a(nit) 
Tr NORD #4, aCURDOT-BIRI1 


), GETCMD 


PROCEED PROCEED IF BPT AND TBIT 
SAVE BPT 


; OUTPUT CR/LF PAIR 
PUT BPT NUMBER 

; MSG ADDRESS 

; guieut + 
TPUT PC 


OUTPUT HEX LONGWORD 
GET ADDRESS” TO DISPLAY 


AS CURRENT DOT 
INSTRUCTION DISPLAY MODE 
ISPLAY 
OMMAND STRING ADDRESS 
yd INSTRUCTION AT PC 
AN STORE 
Nay Hee + ON & GET COMMANDS 
ADDRES 
PLAY IF NOT READABLE 
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45 .SBTTL BPT TRAP HANDLER 

4 ; HANDLE BREAKPOINT TRAPS 

1549 BMSG: .ASCIZ / BRK AT / ; BREAK POINT MESSAGE 

1 -ALIG LONG ; b ONGWORD ALIGNMEN 

1 _ NOF ,SW_PROCESS + EXEC VERSION 

' CLOPT ss 3 XDELTA BPT ENTRY 

é XDELBPT: send : DELTA BPT ENTRY 

1 BSBW =Ssé«SAEE + SAVE REGS AND DISABLE 

1 5 B5BW TBPTX ; GET NoEX 0 apt 

1 3 TSTL «OR ; Che cK. FOR gATeN 

1 BNEG 108 : YES, FOUND It 

1 CMPL alg ,OVRADR t IS fHIS A TEMPORARY BREAKPOINT? 

1 BEQL 0$ + BRANCH IF SO 

1 é BSBW = RESTORR + RESTORE REGISTERS ONLY 

156 mm NDF , SW_PROCESS ; 

1564 MOVZBL 6(SP),=(SP) : GET IPL 

1565 ENBINT + ENABL 

1 66 JMP EXESBREAK + AND HANDLE NORMALLY 

6 IPF t FALSE IF PROCESS VERSION 

1 69 : eeeee UNEXPECTED BREAKPOINT eee 

1 0 CLRL = RO ; RETURN FALSE 

157 RET ; 

' i) eENDC 3 

! 4 : WE JUST HIT A TEMPORARY BREAKPOINT SET FROM A STEP-OVER 

1 2 20$:  B8SBW  UNBRK : RESTORE OPCODES. INCLUDING TEMP BRKPT 

157 CLRL  OVRADR ; : RERO VE TEMPORARY BREAKPOINT 

28 BRB OUTPC AND PRETEND ote JUST STEPPED 

0 ! $: BISB =. #<< 1aV_TBIT>!<1av -ATBRK>>, (R10) ; SET STATUS 

; BSBW RESTORE OPCODES 
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eet iet rat RE CHAPS TOPE - ih 
#iav INSTR, (R10) sh 4 INSTRUCTION DISPLAY MODE 
LOCPROM TL. ui _MDORESS/INS RUCTION 
(AP) ,DCOM $ nrORM DEB DEBUG COMMANDS 


“REAK POIN 
RY Thace FLAG 
MD set 8 


V_TBIT, (R10 Test AND 
iy et =ABLT SAV Ben, 4 ;' 


oF. SW_PROCESS FOR PROCESS VERSION 

*aSRVPC-8(R11) + CHECK REI OP CODE 
#PSL$V yf YRMOD -APSLSS. cunhod aerial RO ; GET NEW MODE 
aCONTE ALE R MODE CONTEXT AREA SIZE 


Sear r nat Ay R10 ; POINT to NEW FLAGS” 


#V_TBITOK, (R10), 508 SET TBIT EXPECTED 
T RESTORE EVERYTHING 
NDF ,SW_PROCESS 


RETURN 
FALSE If oe eee VERSION 


#1,R0 RE TURN 


Teit" ne 


a a 


OUT TAHT TROGRTN 
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DEBUGGER 
ON HANDLER 


FW O OONOUN ES Lt OO 


"S$Eb=198« 6:08:85 DEL TAssmcSxpertacnae:1 = "8" ff, 


-SBTTL TBIT EXCEPTION HANDLER 
HANDLER FOR TBIT EXCEPTION 


“ALIGN LONG ; LONGWORD ALIGNED 
al NDF ,SW_PROCESS 3 
MDELTBIT:: | ; XDELTA TBIT HANDLER 
XDELTBIT: : 
.ENDC : 
BSBU Os SAVEE 3 SAVE AND Sage E 
BBSC = #V_TBITOK, (R10) ,XDELDBG ; BR it XPECTED 
BSB 0=Ss«éRESTTORR 3 RESTORE OhG STERS 
iF NDF , SW. PROCESS : 
mOVZBL 6(SP) ,=(SP) ; GET IPL FOR ENABLE 
ENBIN ; ENABLE 
JP EXESTBIT 3 OTHERWISE LET EXEC HANDLE 
IF : FALSE IF PROCESS VERSION 
CLAL RO : R 
4 ; UNEXPECTED TBIT EXCEPTION 
XDELDBG: ; COMMON WITH DEBUG EXCEPTION 
BICL #<laPSLSv. TBIT>,SAVPSL-B(R11) —; CLEAR TBIT IN PSL 
BSBBtCéCW 3 REPL OPCO DES 
BBSC Os s#V AIBRK, (R10) PROCEED ; CHECK FOR PROCEED 
BAB ouTPc 3; DISPLAY INSTRUCTION AND GET COMMANDS 


x! 
vi 


voe=000 UNBRE SAE §1OR GPeODES FOR BREAKPOINTS RS Ep= 1 be 69:08:35 UoeLYassae KDELTASMAR; 1 ces th) 


A 6 : ~SBTTL UNBRK = RESTORE OPCODES FOR BREAKPOINTS 
Ace 1 : ; UNBRK 
AS TEE) inom : 
51 09 oO OaceB 1 MOVL $#NBRK¢NTMPBRK,R1 : TOTAL PERM & TEMPORARY BREAKPOINTS 
50 F6B1 CF41 p ACE 1662 108: MOVL RKADRLR1),R0- + GET BREAKPOINT ADDRESS 
06 ASG BEQL : SKIP IF NOT ENABLED 
As6 1 IF DF Sw PROCESS : 
A36 1665 PUSHR gah RO,R1,R2,R3,R4,R5> |: SAVE REGS FOR PROTECTION CHANGE 
A ROVL + FORM INADR RANGE FOR SET P ROTECTION 
A361 8 BSBW etd t SET PAGE WRITABLE 
A 166 mova | (SP) ,RO t RESTORE RO,R1 
60 F6D0 CF41 90 A 6 7 Rove BRKOPC RII (RO) t RESTORE OPCODE 
Asc 1 ag BSBw Ss + RESTORE PROTECTION 
A c 167% POPR #°M<RO,R1,R2,R3,R4,R5> : RESTORE REGISTERS 
EF 51 FS OA3C 1676 208:  §OBGTR R1,10$ : DO THEM ALL 
05 Ase 1677 RSB + AND RETURN 
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v04-00 Page 48 
EAK POINT INSTRUCTIONS DELTA SRE IKDEL TA. fon: 1 o 4H, 


selon 


as .SBTTL SETBRK = SET BREAK POINT INSTRUCTIONS 
a ; SETBRK 
1 09 pO OAs0 1 TBRK: MOVL $#NBRK*NTMPBRK,R1 ; TOTAL PERMANENT & TEMPORARY BRKPOINTS 
rode CF41 p Ass 1 ¢ e578 MOVL RKADRER1],RO- + GET ADDRESS 
14 acd 1 BEQL t SKIP IF NOT ENABLED 
FOBA CF41 60 AGB MOVB BRKOPCR1) ; SAVE OPCODE 
6A 18 93 OAST 1 : BITB <ctév. TBIT>!<1av_ATBRK>5, (R10) CHECK FOR TRACE 
13 0a54 16 BEQL ; NO TRACE, SET 
54 AB D1 0a56 «1690 CMPL i SAVPC-B(R11) + CHECK FOR AT i 
1 A A 1858 i BEQL 4 ©=_«- 208 : YES, DONT SET IT 
ASC 169 IF SW PROCESS ; 
ASC 1694 PUSHR pia R1,R2,R3,R4,R5> ; SAVE REGISTERS FOR PROTECTION CHANGE 
ASC 1695 MOVL ; SET START ADDRESS OF RANGE 
Asc 1 3% MOVL AND END ADDRESS 
ASC 169 BSBW Se mois SET PAGE WRITABLE 
aoe 1698 ROVE (SP), RO : RESTORE BPT ADDRESS 
60 03 90 OASC i$ 0 VB #3,(RO) : SET BREAKPOINT OPCODE 
ASE 17 IF DF .SW_PROCESS ; 
ASE 17 ; BSBw $ RESTORE ORIGINAL PROTECTION VALUE 
A i 17 ; POPR #°M<RO,R1,R2,R3,R4,R5> ; AND REGISTERS 
: . 3 H ALL 
E151 €5 OASF 1705 208 SOBGTR R1,10$ DO THEM 
05 Abe 7 6 RSB + AND RETURN 


EEE eee ——— - _ 


wil GABBA ERNSEMononearon —“EESISEE OGRE WBE MeSL AEH MO 


A 1 .SBTTL GETBPTX = GET INDEX FOR BREAKPOINT 
aos 171 GETBPTX 
A63 171 
Ags 171 ties : 
53 08 00 Oa63 1714 MOVL  #NBRK,R3 : INIT LOOP 
F677 CF43 56 p A66 1715 108 CMPL SAV vPe=BCRI1D /BRKADRCR3) ; IS THIS A BPT? 
A6D 1716 BEQL : YES 
FG 5 OA6F 171 SOBGTR R3,108 + NO, CONTINUE 
05 OA72 1718 208: RSB + RETURN 
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ibs O00 OustE - INBut BURR ACTER STRING $= eet 83:68:35 DELTA. SRC rect TA nan: * iD 
A .SBTTL QUOTE = INPUT CHARACTER STRING | 
A ; QUOTE = START CHARACTER STRING INPUT 
A 4 uote: ; 
55 A MOVL CURDOT=8(R11) .RS : POINT TO STRING BUFFER 
FA ; 1 : 5$: BSBW = GETCHAR : GET CHARACTER 
rT. A791 CMPB =: QUOT, RB : CHECK FOR QUOTE 
13 OA7C 17 : BEQL : YES, END OF STRING 
85 9 are 17 MOVE RB, (RS)+ : INSERT IN BUFFER 
F311 «OABT «1730 BRB ; AND CONTINUE 
6B CS v0 A8S 1731 10$: MOVL  R5,CURDOT-B(R11) ; SAVE NEW DOT 
ABS 1732 RSB : RETURN 
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» SBTTL 
DEPOSIT 
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SCMKRNL 
RSB 


CASE 


RSB 
PUSHAS 
PUSHAB 


ETWR 
F1-B(R11),(R4) 
.REPROT 


-» B*DEPPREG, (AP) 
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AX/VMS Macro V04-00 


Page 
DELTA.SRCJXDELTA.MAR; 1 


DEPOSIT 

DATA 

#V_PREG, (R10) ,40$ : BR IF PROCESSOR REGISTER 

DF =SwW PROCESS ; 

CURDOT-B(R11) .R4 + GET CURRENT DOT 

B1D~B(R 1) : CHECK FOR ARBITRARY PROCESS DEPOSIT 
$ : BR IF YES 

Mattia, ,TYPE=B,<-" orl SWITCH ON TYPE 

0$, WORD 

0$-- LONG 


NDF , SW_PROCESS 
F1-B(RT1) ,@CURDOT-B(R11): 


F1=-B(R11) ,@CURDOT-B(R11): 
F1-B(R11) ,@CURDOT-8(R11); 


F1-B(R11),CURDOT-B(R11) : 


SETWRT 
F1-B(R11), (R4) 
REPROT 


Pete Oe Ge Ge ee 


#1,R4,R5 


#3,R4,R5 

of WR 
F1-B(R11),(R4) 
REPROT 


eee - TYPE=B, nll 


80$> 
W*OPBYTE 
W*OPWORD 


; RETU 


SET VALUE IN PROCESSOR REGISTER 


; FALSE IF PROCESS VERSION 
; BYTE DEPOSIT 


START roy END ADDRESSES EQUAL 
SET WRIT A le OLD PROT TO R2 
STORE BYT 

RESTORE PROTECTION 


WORD perestt- FORM END ADDRESS 
SET WRITABLE 

STORE WORD 

RESTORE PROTECTION 


0 won DEPOSIT, FORM END ADDRESS 
ET WRITABL - 

T 
E 


“9-2 


L 
S 
S REL ONG WO 
R TORE OPROTECTION 
PROCESSOR REGISTER 

DEPOSIT IN PROCESSOR REGISTER 
ubens IN opel reas PROCESS 

SWITCH ON TYPE 

; BYTE 
WORD 
LONGWORD 

SET ADDRESS OF BYTE ROUTINE 
SET ADDRESS OF WORD ROUTINE 
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SEPPRES: UG 
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, G-B(R11) 
$ W*QGET, (RO) 
#20,SP 


0 
W°PREXC, (FP) 
B1-BCRIf) .CURDOT-B(RI1) 


DzDuvOo ZrSSz 


wes 


yan/ MS Rogre v04-00 
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ONG ROUTINE 


vPr< Pou 
m— 


ARGUMENT LIST 
TORE ENABLED 


UE REQUEST 


—-P>wDBroOZrrom 


O PROCESSOR REGISTER 
ON HANDLER 
en IN REG 


mmrmn 


0 : PROCESSOR REGISTER EXCEPTION HANDLER 
#4,8(AP),R1 + POINT TO EXCEP TION FP 
(Ri), 12¢FP) ; SET AS RETURN 
B*10$, 16(FP) SET RETURN ADDRESS 
#1,R0 SET NORMAL STATUS 
AND RETURN 


me fi 
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98 6A 08 
9 08 03 
‘7 


ze 


COOoOoooooCoCooOo -- 
& 33333 


EB 

FO 

19 
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13 EXECUTE 
§ EXECUTE: 

é BBC 


GGER 
M COMMAND STRING 


15-SEP-1984 
“SEP-1984 


-SBTTL EXECUTE = PERFORM COMMAND STRING 


33:80:62 AX/VMS Macro v04-00 
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IF NO ADDRESS 
CHAR STRING 


Page 53 
° (1) 


OP 
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OR Br TSTER PREFIX ak et 7 83:08:35 YOELTA SRE XDELTA.MAR; 1 
; .SBTTL P = PROCESSOR REGISTER PREFIX 
; ; SET PROCESSOR REGISTER MODE 
1835 PREG: : PROCESSOR REGISTER MODE 
1 : BBSS  #V_PRMODE, (R10), 108 : SET PROCESSOR REG FLAG 

1837 10$:  RSB > RETURN 


Page 
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P 

PA 
PR 
PA 
PF 
PF 
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PF 
PF 
PF 
PF 
PF 
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PF 
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GER INITIALIZATION tise ts 9 83:08:85 DELTA. SRCJXDELTA.MAR; 1 ef WD Sy 

: .SBTTL PROCESS DEBUGGER INITIALIZATION v. 

184 If DF, SW_P cess v: 

‘ SALUTE: :ASCIZ OF ASeCr SGD iTA Version X2.2/<CR><LF> ; v: 

1844 TEST: : START ADDRESS OF IMAGE ENTRY v: 

! $2 KDTSSTART: : P 3 GLOBAL START ADDRESS FOR CLI DEBUG V- 

1 ‘3 DELTA_START: ; START ADDRESS FOR DEBUGGER ENTRY v" 

1 3 SWAKE_S > NUL L WAK x 

184 SHIBER_S ; HIBERNA TE TO GET SYNCHRONIZED 

1 20 MOVAB TERMA MAS K ,TERMASKADR + RELOCATE TERMINATOR MASK D 

1 MOVAB TTNAMD 0 TTNAMD +4 ; RELOCATE DESCRIPTOR 

1 36 MOVAB DBGINPUTSB.DRGINPUT +4 

185 MOVAB TRNINPUT+8. TRNINPUT+4 

1854 MOVAB EXIHANDLE,EX IH ADR ; 

1855 MOVAB EXITCODE,EXC : RELOCATE EXIT HANDLER ARGS 

36 CALLG (AP) ,B*IN ITEACL : GENERATE CALL FRAME 

185 : 

1 38 NOBRK: MOVL  4(AP),AP : GET EXCEPTION ARGUMENT LIST 

69 BRW EXCEPT +2 : AND GOTO EXCEPTION HANDLER 

1 8 INITCALL: 

186 .wORD 0 : ENTRY MASK 

1864 OVAB W*CATCHALL, (FP) + SET CATCHALL EXCEPTION HANDLER 

1865 SCMKRNL_S W°SETKEXC, (AP) : SET EXCEPTION VECTORS FROM KERNEL MODE 

1 ef BLBS 0, + SUCCESS WITH KERNEL, IF NOT, TRY EXEC 

186 SCMEXEC_S W°SETEEXC, (AP) : SET EXEC &@ SUPV EXCEPTION VECTORS 

1 68 BLBS ; + BRANCH IF SUCCESS 

1 $ CMPL RO. #SS$_NOPRIV + CHECK FOR LACK OF PRIVILEGE 

1870 BEQL «=s«1$ : WHICH IS THE ONLY ACCEPTABLE ERROR 

1871 RET ; OTHERWISE GET OUT 

1 ds 1$: SSETEXV_S ADDRES=W*EXCEPT : 

187 ACMODE=APSLS$C USER © 

1874 VECTOR=#0 Set primary FOR USER 

1875 SSETEXV_S ADDRES=W*CATCHALL, - ; SET LAST CHANCE HANDLER 

1 id: ACMODE=APSLSC -USER - 3 FOR USER MODE 

187 VECTOR=#2 : SPECIFY LAST CHANCE HANDLER 

1 78 SDCLEXH_S pure + DECLARE USER MODE EXIT HANDLER 

187 PUSHR “#*M<R2.R3,R4.R5> 

1880 MOVAB W*DELBASE. ri ; Set page protection on entire 

; 1 th 4 eal RS : + DELTA mage to user writeable. 

1 § POPR “ M<R2,R3,R4,R5> 

1884 STRNLOG. § LOGNAM=DBGINPUT,- ; FIRST DEFAULT INPUT 

1885 RSLLEN=TRNINPUT; © 

1 : RSLBUF =TRNINPUT 

1 BLBC R098 : ON ERROR, USE TT 

1 : CMPL RO. #SS$_NOTRAN 

1 BEQL USE TT IF NO TRANSLATION 

1 0 3S: ST RNLOG. S LOGNAM=TRNINPUT,- ; TRANSLATE ALL THE WAY 

189 RSLLEN=TRNINPUT.- 

1 3% RSLBUF =TRNINPUT 

189 CMPL RO, #SS$_NOTRAN 

1894 BNEQ $ : TRY ANOTHER LEVEL 

1895 CMPB ss @TRNINPUT*4,#°X18 : CHECK FOR PROCESS PERMANENT 
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R INITIALIZATION 38 oat 7 §3:60:96 DELTA. SRCIXDELTA.MAR; 1 ° 7) 
BNEQ «=sS$ 
SUBL § #4, TRNINPUT ; REMOVE THE ESCAPE HEADER 
ADD #4; TRNINPUT +4 
S$: SASSIGN_ TRNINPUT,TTCHAN ; DO THE ASSIGN 
LBS ; + TRY TT ON ieee 
98: ASSIGN_S TTNAMD,TTCHAN : ASSIGN DEVICE 
BLBS ~RO,10$ : CONTINUE IF SUCCESS 
RET + ELSE EXIT UIT ERROR | cove IN RO 
10$: § MOVAB SAL TE, Ra : SET ADDRESS OF SALUTATION 
BSBW rasta OUTPUT | 
BBC oeLt V OBCEXCP, 24(AP), 156 : BR IF LATER INVOCATION 
BRW NOBRK ; VIA $DEBUG COMMAN 
15$: CALLG (AP) ,8°208 : CREATE TOP CALL TRAME 
20S: .WORD 0 : NULL ENTRY MASK 
ADDL #4,4(AP) : ADVANCE STARTING ADDRESS POINTER 
MOVPSL -(§P) + SAVE PSL 
ADDL3 #2,@4(AP : FETCH CURRENT STARTING ADDRESS 
MOVZWL #588 otbUb, (eep) + SET EXCEPTION CODE 
PUSHL : SIGNAL ARG COUNT 
MOVL  $P,RO : SAVE POINTER 
VG  RO.=(SP) + SAVE PHONY RO,R1 
PUSHL #0 : DEPTH 
PUSHL FP : FP 
PUSHL a + ARG COUNT 
PUSHL : POINTER TO MECH 
PUSHL ag + POINTER TO SIGNAL 
CALLS #2,W*EXCEPT + SIGNAL PHONY EXCEPTION 
ADDL #12,SP : CLEAN BACK TO RO,R1 
MOV (SPs. RO + RESTORE RO, Ri 
ADDL + CLEAN BACK TO PC,PSL 
REI : RETURN TO TARGET PROGRAM 
ENABLE LOCAL _BLOCK 
SETKEXC: .wORD 0 : ENTRY MASK FOR CMKRNL PRIVILEGE 
PUSHAB W*CLREXV_KERNEL : SET TO USE KERNEL RUNDOWN HANDLER 
CALLS #1,W*SETRUNDWN : SET UP APPROPRIATE RUNDOWN HANDLER 
BLBC—> «RO, : BRANCH IF CAN'T SET UP HANDLER 
SSETEXV_S ADDRES=B“*EXCEPT,- ; 
PRVHND=KCOND PRIMARY,- : 
ACMODE=@PSLSC_KERNEL.- : SET KERNEL 
VECTOR=# : PRIMARY VECTOR 
SSETEXV_S ADDRES=W*CATCHALL, = ; 
PRVHND=KCOND LASTCHANC,= 
ACRODE ABSLSC_ ~KERNEL > SET KERNEL MODE bast CHANCE HANDLE 
VECTOR=#2 SPECIFY LAST CHANCE VECT 
BRB 10$ + SKIP ALTERNATE ENTRY RASK™ 
SETEEXC: .WORD 0 : ENTRY MASK FOR CMEXEC PRIVILEGE 
PUSHAB W°CLREXY EXEC : SET TO USE EXEC RUND LER 
CALLS #1,0*SETRUND : SET UP APPROPRIATE RUNDOWN HANDLER 
Lec. —séRO,, + BRANCH IF CAN'T SET UP HANDLER 
108: SETEXV_S ADDRES=B°EXCEPT - : 
HND=ECOND PRIMARY,- : 
ACMODES#PSt st _EXEC,= ; SET EXEC MODE EXCEPTION HANDLER 
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INITIALIZATION aes oat 7 83:68:46 DELTA, SRCIXDELTA-MAR: 1 oF th 
VECTOR=#0 : PRIMARY VECTOR 
SSETEXV_S ADDRES=W"CATCHALL - : 
PRVHND=ECOND_LASTCHANC,= : 
ACMODE=#PSLSC_EXEC,- |; SET EXEC MODE LAST CHANCE HANDLER 
VECTOR=#2 ; SPECIFY LAST CHANCE VECTOR 
SSETEXV_S ADDRES=B“*EXCEPT,- ; 
PRVHND=SCOND PRIMARY,- : 
ACMODE=#PSLSC_SUPER,- ; SET SUPERVISOR MODE EXCEPTION HAND 
VECTOR=# + PRIMARY VECTOR 
SSETEXV_S ADDRES=W*CATCHALL,- ; 
PRVHND=SCOND_LASTCHANC,= : 
ACMODE=#PSLSC_SUPER,- _; SET SUPERVISOR LAST CHANCE HANDLER 
VECTOR=#2 ; SPECIFY LAST CHANCE VECTOR 
208: RET : 
DISABLE LOCAL_BLOCK 
EXCEPT: .WORD 0 : EXCEPTION HANDLER ENTRY MASK 
SSETEXV_S ADDRES=B*EXCEPT,- ; 
ACMODE=@PSLSC_USER,- __; 
VECTOR=#0 ; RE-ESTABLISH USER PRIMARY VECTOR 
ADDL3 #4,4(AP),R + GET POINTER TO SIGNAL 
MOVPSL R1 : GET CURRENT PSL 
EXTZV  #PSLS$V_CURMOD,#PSL$S_CURMOD,R1,R1 ; 
BBSS  R1,0BGACTIVE,40$ ; BR IF ALREADY ACTIVE 
CMPL #s$$_1BIT, (RO) : IS IT TBIT? 
BNEQ 108 : NO 
5$: BRW KDELTBIT : YES, A TBIT 
108: CHPL #SS$_BREAK, (RO) : 1S [1 BREAKPOINT? 
15$: BRW XDELBPT + YES, A BREAKPOINT 
20S: : SOME OTHER EXCEPTION 
CMPL = #SS$_UNWINDING, (RO) : 1S IT UNWINDING 
BEQL 0$ : YES 
cnPL #SS$_COMPAT, (RO) + : IS IT COMPATIBILITY MODE EXCEPT? 
CPL #1, (RO) : 1s IT COMPATIBILITY BPT? 
cHPL #7, (RO) ; Is IT COMPATIBILITY TBIT? 
30$:  CMPL #SS$_DEBUG,~(RO) : IS IT DEBUG EXCEPTION? 
BNEQ 40$ 3 e 
BSBW 3s SAVE : SAVE EVERYTHING 
BRW KDELDBG : AND TREA UNNY BPT 
40S: + UNEXPECTED EXCEPTION 
BBCC R1,DBGACTIVE,50$ + CLEAR DEBUG ACTIVE 
50S: cURL RO : RETURN FALSE FOR RESIGNAL 
60S: MOVL #1,R0 t IGNORE AND RESIGNAL 
PAGE 
*SBTTL HANDLER FOR DEBUG EXCEPTIONS 
DBGEXCEP: ; 


0 
ADDL #4, 8(AP),R1 


t POINT TO EXCEPTION FP 


— | 


PROCESS DEBUGEER fal TIAL IZATION 


a3: 


CATCHALL: 


15-SEP-1984 :40:27 YAX/VMS Macro v04-00 p 5 
eet setts a tt Me rR ea OP oer 7; 
MOVL = FPR : INIT LINK FOR CALL FRAMES 
CMPL (R8) cat : 13 THIS THE rast BNE? 
mOVAB “ os 16(RO) : EF FOR RETURN 
ore 1 (ROS .RO : CONTINUE 
MOVAB XDELACV, 16(RO) t SET RETURN FOR ERROR 
; CATCHALL EXCEPTION HANDLER 

-WORD O : ENTRY MASK 
MOVPSL R1 : GET CURMOD 
EXTZV #PSLSV_CURMOD,#PSL$S_CURMOD,R1,R1 : ISOLATE CURRENT MODE 
BBCS R1,DBGACTIVE, 10S ; MUST NOT BE DEBUGGER EXCEPTION 
CURL RO + RESIGNAL 
BSBU ss SAVE t SAVE EVERYTHING 
ADDL 3 #4 4 AP) RO F POINT TO EXCEPTION CODE 
BSBW CRLF + OUTPUT CR/LF 
BSBW OUTLONG + OUTPUT EXCEPTION CODE 

VAB B*EXCMSG,R4 + OUTPUT MESSAGE 
BSBW OUTZSTRING : TEXT FOR EXCEPTION 

XDELDBG : AND DISPLAY INSTRUCTION 
7 EXCEPTION / : 

: EXIT HANDLER 
-WORD 0 ENTRY MASK 
BITB #15,DBGACTIVE TEST FOR DEBUG ACTIVE IN ANY MODE 
BEQL 108 NO, REPORT EXIT 

PROGRAM EXIT 

mOVPSL {$P), BUILD EXCEPTION FRAME 
PUSHL  @4(AP) EXIT CODE FOR EXCEPTION CODE 
PUSHL ARG COUNT 


a3 
PUSHR #*M<RO,R1> 
mova Ap. =(SP) 


PUSHL # MECHANISM COUNT 
PUSHL sP POINTER TO MECHANISM 
PUSHAL 24(SP) POINTER TO SIGNAL 
PUSHL #2 

VL SP,AP SET AP FOR EXCEPTION 
BSBU «SAVE SAVE EVERYTHING 
MOVAB B*EXIMSG,R4 DISPLAY EXIT MESSAGE 
BSBW © OUTZSTRING OUTPUT TEXT 
MOVL AVAP-B(R11) .R3 GET POINTER TO EXCEPTION ARGLIST 
MOVL (R3) RS GET EXIT CODE ADDRESS 

SBU = OUTLONG DISPLAY IT 

DCLEXH_S EXITBLK RE-ESTABLISH EXIT HANDLER 
MOVPSL : GET CURRENT PSL 
EXTZV #PSLSV_CURMOD,#PSL$S_CURMOD,R1,R1_; GET CURRENT MODE 

20$ ; SET GELTA ACTIVE FOR MODE 


BBSS R1,DBGACTIVE, 
XDELDBG 


2 EXIMSG: .ASCIZ <CR><LF>/ EXIT / ; 


r 
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a a et i at a st td st 


"SSEp=198e 60:08:95 EDECYASsmeSnbelta.nan; 1 


LOCAL BLOCK 


RESET INNER er enced t son VECTORS. THIS £006 IS CALLED AS A 
PRIVILEGED IM UNDOWN HANDLER TO ENSURE ITS EXECUTION. 


THIS ENTRY POINT IS USED IF THE PROCESS HAS CMKRNL PRIVILEGE 
CLREXV KERNEL : ¢ CLEAR EXCEPTION VECTORS 
RESET PRIMARY AND LAST CHANCE EXCEPTION VECTORS FOR KERNEL MODE 


- ENABLE 


SSETEXV_S ADDRES=@KCOND_PRIMARY,= ; 
ACMODE=#PSLSC"KERNEL,- ; 
VECTOR=# : PRIMARY VECTOR 
SSETEXV_S ADDRES=@KCOND_LASTCHANC = : 


ACMODE=#PSLSC_KERNEL,- ; 
VECTOR=#2 ; LAST CHANCE VECTOR 


THIS ENTRY POINT IS USED IF THE PROCESS HAS CMEXEC PRIVILEGE 
LREXV_EXEC: 3; CLEAR EXCEPTION VECTORS 
RESET PRIMARY AND LAST CHANCE EXCEPTION VECTORS FOR EXECUTIVE MODE 


Seteee ee 


SSETEXV_S ADDRES=@ECOND_PRIMARY,= ; 
ACMODE=#PSLSC_EXEC,- ; 
VECTOR=40 ; PRIMARY VECTOR 
SSETEXV_S pebresPirer tate ; 
ACMODE=#PSLSC_EXEC,- ; 
VECTOR=#2 ; LAST CHANCE VECTOR 


RESET PRIMARY AND LAST CHANCE EXCEPTION VECTORS FOR SUPERVISOR MODE 


SSETEXV_S ADDRES=@SCOND_PRIMARY,- ; 
ACMODE=#PSLSC"SUPER,- ; 
VECTOR=40 : PRIMARY VECTOR 
SSETEXV_S ADDRES=@SCOND_LASTCHANC ,- : 
ACMODE=#PSLSC"SUPER,- ; 
VECTOR=#2 : LAST CHANCE VECTOR 
RSB ; 
DISABLE LOCAL _BLOCK 


-PAG 
“Serie SETRUNDWN = SET UP RUNDOWN HANDLER 


+¢ 

FUNCTIONAL DESCRIPTION: 
This rout ine inserts the specified routine entry point into 
the process’ rundown vector. CMKRNL privilege of running in 
kernel or exec mode is required. 


CALLING SEQUENCE : 
CALLx SETRUNDWN 


18 
= EXECUTIVE DEBUGGER “SEP-1986 AX/VMS Mace p 
PROCESS DEBUREER GAITIALIZATION MBrseen 88S 85:60:95 PARCYRS Ragre. vOe-O0 oer 4, 
INPUT PARAMETERS 
(AP): address of rundown handler routine 
IMPLICIT INPUTS: 


OUTPUT PARAMETERS: 
NONE 

IMPLICIT OUTPUTS: 
NONE 


COMPLETION CODES: 
SSS_NORMAL if susconstyi ty & completed 


SSS_NOPRIV if not privileged 


4 SIDE EFFECTS: 

4 NONE 

4 

: =-- 

2 WEAK CTLSGL_USRUNDWN 

47 SETRUNDWN: 

4 eWORD “M<> 

4 MOVPSL RO Sk t PSL of caller 
CMPZV  #PSLSV_PRVMOD,#PSLSS _PRVAO RO. #PSL SC USER 
BLSSU 33 3 bra # DELTA started up in inner mode 
PUSHL 3 build MN crcene arg List on stack 

5 PUSHAB i0s ; address of kernel mode routine 
a #2,G*SYSSCMKRNL 3; call actual routine in kernel mode 

5$ MOVL #SS$_NORMAL ,RO ; DELTA started up in an inner mode 

RET ; do not set up a rundown handler 

et The Fol Loving code executes in kernel mode and actually inserts the 

2 : entry point into the rundown vector. 

6 Py 

65 10$: WORD ths ; save no registers 
ae lioe #1PL STDEL lock out AST’s while we modify the vector 

MOVAB srt ste USRUNDWN, R1 Get rundown vector pointer address. 


Branch to NOP routine if no present. 


ee a ek a at at ws at a 4 tt a as ne a ss a se as a a a tk a ts a as a a a st tt 


oo 
SSSLSUA CN SSSSLS DEENA S SENEAL UNS SEEGERS SRE 


§ SUBL3 Get address of rundown vector. 
MOVL aséb VeEFUL RO 

7 CMPL (R1),#<256-7> 3; check if another vector will fit 

7 BGEQ ; : branch if no 

7 ADOL (R1) ,R1,RO 3 point a {ree vector 

7 MOVe  #°x9F16.(RO)+ ; insert J . 

? MOVL AP), (RO) : insert r9 .. ing “address 

7 MOVB #*x05,(R0)+ : insert final RSB 

7 ADOL 86.18 (R1) ; update a pointer 

7 ADOW * LAcsay, y CSET+4 3 mage activation end pointer 

7 198: MOVL ass NORMAL ; 7M success 

80 20$: SETIPL : india AST® $ again 


PPI IPOPIPOPIPIPONIPINIPINIPINIPIPIPINIPINININIMIAIMIAINIPMOIR INI 8 a tt tt 


ALWAYS SUCCESS 


xk 8 
BUGGER 15-SEP-1 AX/VMS Macro v04-00 Pa 61 
EER INITIALIZATION oSEe 138s Boicosss FOC YRS Magee vOenO8. ° Th 
RE 
PAGE 
-SBTTL SETWRT = SET PAGES WRITABLE 
5 : MAKE SPECIFIED RANGE OF PAGES WRITABLE 
$ : R4 = STARTING ADDRESS 
; RS = ENDING ADDRESS 
: RO-R2 DESTROYED 
SETWRT: 3 
3 MOV = R4 = (SP) $ PUSH RANGE ONTO STACK 
5 MOVAL =(§P),R2 + ADDRESS FOR RETURN OF PROT 
%6 SCRKRNL S$ ars TPRTK, (R2) : TRY IN KERNEL MODE FIRST 
9 BLBS : CONTINUE IF NO ERROR 
38 CALLG (Rd) B*SETPRTK : IF NOT ENOUGH PRIV, TRY USER MODE 
108: POPR #*M<h2> : RESTORE PROTECTION VAL 
0 ADDL 4#8,SP + CLEAN STACK 
1 RSB + RETURN 
§ SETPRTK:.WORD 0 F 
$SETPRT_S INADR=4(AP),- 
5 PROT =#PRTSC *UW.-: WRITABLE BY ALL 
6 ACMODE=40 ; 
PRVPRT=(AP) t ADDRESS AT WHICH TO RETURN PROT 
MOVL #1,R0 : 


$.- 


a0 


RSB 
0$: PUSHAB W*FPBYTE 
BRB 


oe 


NO AR GI OOO NOU WIN SO OONAUE WN O 
fun = 
co oO 

me 
v 

c 
“” 

z 

< 

> 

be I 

2 

° 


AH 
wv 
— 
.—J 
0 
ow 
~~ 
zz 


- PAGE 
-SBTTL QGET = QUEUE AST TO GET 


3 RESTORE PROTECTION 


E 
-SBTTL FETCHP = FETCH DATA FROM ANOTHER PROCESS 
FETCHP: CASE : appeananes 


2 => LONG 

UNKNOWN 

SET FOR BYTE FETCH 

SET FOR WORD FETCH 

SET - rt ee FETCH 


ted Me ROCESS 
Dee VALUE 


2 
— 
aon0 
zzO 


e. ane LIST 
FETCH 


A TO RETURN 
AND RETURN DATA 
DATA FROM ANOTHER PROCESS 


3 i] 
om 
ox 
mn 
nn 
— 


>>>>>rrrrrr “YC 
POAAAAAAAMAIEY 


AC 


om 


PPP PPPS BE EEE EE 


mo 
2Ce 

a 
Ho 


SOODNOA NEU OO OONOUNE UT "OO 


o 
- 


ss 


TIALIZATION 


INPUTS: 


o WEAK 


MBSE S8e Baicksss FORCYRS Mages. ves-O,., Page OF, 


eee 
oO vz 
O--rmno 
co=-m 
nm cy}, 

onz- 
wmnwnZ- 


LOCBUF 3 MAKE FOLLOWING CODE OPTIONAL 


AP) 
AP) 
AP) 
AP) 
SAL 
rage nace 
oy KE 


QAST 
SGL_MAXPIX 


FP “ADORACERL AS rst 
=VALUESACB Rg STPRA 
ie 


FP <RETLOC=ACB 


KAST+4 


“M<R2,R3,R4 ght? ; ENTRY MASK 


#SS$_NONEXPR,RO + ASSUME BAD PIX 

G*EXESALLOCBUF ,R1 3 WERE WE LINKED WITH SYS.STB SYMBOLS? 
10$ : IF NOT, RETURN WITH ERROR 

(AP) ,@#SCHSGL_MAXPIX : CHECK Bix FOR LEGAL PROCESS 
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ER INITIALIZATION 8 oats 83:68:85 YOELYA, SRE XDELTA.MAR; 1 (2) 
1 MOVZWL @16(AP),R1 : GET Size OF CODE SEGMENT 
MOVAB  IRPSC_LENGTH(R1),R1 + ADD SIZE OF PACKET DATA 
4 JSB avex SALLOCBUF $ ALLOCATE BUFFER TO CONTAIN CODE 
5 BLBC RQ. $ BRANCH IF NON 
: MOVL R2.R : SAVE ADDRESS OF PACKET 
MOVL Cb L PID(R4) FP_ORIGPID(RS) —; SET PID FOR RETURN 
: MOVE #*x807ACBS$B_RMODTRS) : SET FOR SPECIAL KERNEL AST 
MOVAB ACB LKAST#B(R ) ACBSL_KAST(RS) ; SET ADDRESS FOR AST 
: MOVL 4(AP)>FP_ADDR(RSS ; SET ADDRESS FOR FETCH 
4 MOVL BCAP) FP"RETLOC(RS) + AND ADDRESS OF RETURN LOCATION 
a MOVL (APS RO : GET ADDRESS OF CODE SEGMENT 
7 MOVL 1 CAP). ACBSL PID (RS) > SET TARGET PID 
7% PUSHR #*M<RO.R1,RO-R3,R4,R5>  : SAVE REGS FOR MOVC 
75 MOVCS (RO)+, (ROS AtBgL KAST+8(R5); COPY CODE SEGMENT TO BUFFER 
id: POPR #*M<RO,R1,R2,R3,R4,R5> ; RESTORE REGISTERS 
7 MOVZBL #PRI$_fICOM,R2 : SET PRIORITY INCREMENT CLASS 
zB § as*SCHSQAST + QUEUE AST FOR TARGET 
‘9 10$: RET : RETURN TO ORIGINAL MODE 
1 .SBTTL FPBYTE = FETCH BYTE FROM PROCESS 
; FPBYTE: .WORD -.=2 : SIZE OF CODE SEGMENT 
iFNORD #1,a@FP_ADDR(RS),10$ : BRANCH IF NOT READABLE 
4 MOVE aFP_ADDR(RS), FP VALUS(RSS ; GET VALUE 
5 10$ MOVL P_ORIGPID(RS) ,ACBSL_PID(R5) ; SET PID FOR RETURN AST 
: MOVE %80,ACB$SB_RMOD(R5)~ =; SET FOR KAST AGAIN 
MOVAB B8*°20$.ACBSL-KAST(R5) =; SET NEW AST ADDRESS 
; MOVZBL #PRI$ TICOM;R2 + SET PRIORITY INCREMENT CLASS 
JMP as#SCHSOQAST + QUEUE RETURN AST 
0 208 IFNOWRT #1,aFP RETLOC(RS) : IF NOT WRITABLE THEN SKIP IT 
91 P’ VALOE (RS) ,@FP_RETLOC(RS) » RETURN VALUE 
9 30$ CBS, _PID(RSS RI ; GET PIb FOR w 
9 SETIPL #IPLS~SYNCH + RAISE TO SYNC 
94 JSB as#SCHSWAKE + WAKE PROCESS 
99 SETIPL #IPL$_ASTDEL : LOWER IPL 
¢ MOVL sR : SET ADDRESS FOR RELEASE 
9 JMP awé XESDEANONPAGED : FREE BLOCK AND EXIT 
98 90S: : END OF CODE SEGMENT 
; PAGE 
*SBTTL DPBYTE = DEPOSIT BYTE TO PROCESS 
; DPBYTE “WOR -.° : SIZE OF CODE SEGMENT 
O$:  {FNOWRT #1,@FP_RETLOC(RS),30$ : IF NOT WRITABLE THEN SKIP IT 
4 MOVE FP_VALOE(R5) ,a@FP_RETLOC(RS) s RETURN VALU 
5 30$: MOVL R57RO ; SET ADDRESS FOR RELEASE 
{ Jap aaé XESDEANONPAGED + FREE BLOCK AND EX! 
90$: : END OF CODE SEGMENT 
. PAGE 
*SBTTL FPWORD = FETCH WORD FROM PROCESS 
11 FPWORD: .WORD 90$-.- : SIZE OF CODE SEGMENT 
1g iFNORD #2,@FP_ADDR(RS),10$ * BRANCH IF NOT READABLE 
1 MOVW = @FP_ADOR(RS) FP VALUE(RSS ; GET VALUE 
1 108 MOV FP_ORIGPID(RS) ,ACBSL_PID(R5) ; SET PID FOR RETURN AST 
1 MOV on ,ACB ROD (R ; SET FOR KAST AGAIN 
if ROVAB B*20$.ACBSL-KAST(RS)  ; SET FOR NEY AST ADDRESS 
1 MOVZBL #PRI$ TICOMTR2 : SET PRIORITY INCREMENT CLASS 
18 JMP asSCHSOAST : QUEUE RETURN AST 


<a jw 
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S OEBUGGER IN] TIALIZATION “Seen 13B2 BB88:85 FOL YRS agro VOe~Oe. vO) 
AC 208: LENOURT #2,@FP_RETLOC(RS) , 30$ F NOT WRI TABLE THEN SKIP IT 
AC MOV ALOECR ) aFPAETLOC (AS RETURN VALUE 
AC 30$:  MOVL ACB tsPIDCASS ; pib FOR WAKE 
AC SETIPL #IPL$~SYNCH t RAISE TO SYNCH 
AC JSB #SCHSWAKE + WAKE PROCESS 
AC SETIPL @ PLS. ASTDEL + LOWER JPL 
AC MOVL + SET ADDRESS FOR RELEASE 
AC JMP aaé XE SDEANONPAGED + FREE BLOCK AND EXIT 
aC 90S: : END OF CODE SEGMENT 


: 
DAC § . PAGE 
DAC p -SBTTL DPWORD.= DEPOSIT WORD TO PROCESS 
DAC BPWORD: “WORD $-. : SIZE OF CODE SEGMENT 
DAC g 0$: TFNOWRT vaFP-RETLOC(RS),30$ : IF NOT WRITABLE THEN SKIP IT 
DAC MOVW P’ VALOE(RS) ,aFP -RETLOC(RS) » RETURN VALUE 
DAC 4 30$: MOVL 43 “R : SET npbne ss FOR RELEASE 
DAC 5 JMP awe XESDEANONPAGED : FREE BLOCK AND EXIT 
DAC : 90$: + END OF CODE SEGMENT 
‘ 
DAC PAGE 
DAC § -SBTTL FPLONG = FETCH LONG FROM PROCESS 
DAC 40 FPLONG: .WORD. 9 ; SIZE OF CODE SEGMENT 
DAC 41 FNORD #4, aFP ADDR(RS), 108 : SRANCH vif T READABLE 
DAC 4g MOVL ar? ADBR(RS) FP. VALUE(RSS ; GET VALUES 
DAC 43 10$ MOVL RIGPID(RS) RCB$L_PID(R5) ; SET PID FOR RETURN AST 
DAC 44 MOVB #386 B$B_RMOD(RS) : SET’ FOR KAST AGAIN 
DAC 45 MOVAB 5°2 rat tee “KAST(R5) §: SET NEW KAST ADDRESS 
DAC 46 CLRL : NULL PRI INCR 
DAC 4 JMP a#SCHSQAS ; QUEUE RETUR 
DAC 48 20S: IFNOWRT #4,0FP RT Oc(RS),3 IF NOT URITABLE THEN SKIP IT 
DAC 4 OVL P- VALOE (RS) ar AETLOC (AS) ; RETURN LUE 
DAC 0 30$:  MOVL CBS, _PID(RSS RI ; GET PID FOR 
DAC 1 SETIPL #IPLS$~SYNCH + RAISE TO ey nen 
DAC : JSB a*SCHSWAKE : WAKE PROCES 
Dac « SETIPL @ PLS ASTDEL + LOWER IPL 
DAC 54 MOVL =R + SET ADDRESS Afor RELEASE 
DAC 55 JMP ave XESDEANONPAGED : FREE BLOCK AND EXIT 
DAC ! 90$: : END OF CODE SEGMENT 
v 
DAC PAGE 
DAC § *SBTTL PLONG. - DEPOSIT LONGWORD 10 PROCESS 
DAC 6 BPLONG “WORD ; SIZE OF CODE SEGMENT 
DAC 0$: iFNOWRT #4,@FP RETLOC (RS) 30$ : IF NOT WRITABLE THEN SKIP IT 
DAC ; MOVL  FP_VALOE(R5) ,aFP_ RETLOC (RS) » RETURN VALUE 
Dac 30$:  MOVL R57RO ; SET ADDRESS FOR RELEASE 
DAC 64 JMP ave XE SDE ANONPAGED ; FREE BLOCK AND EXIT 
DAC 65 90S: ; END OF CODE SEGMENT 
DAC 66 DELEND: 3 
DAC 67 .ENDC ; 
V Py 
Dac : NORMAL END STATEMENT WITHOUT START ADDRESS 
Dat ; USED TO ASSEMBLE XDELTA FOR EXEC DEBUGGING. 
‘ 

5 . 


~END 


8 9 | 
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sesso loaner -MAR-1980 83:29:66 DELTA. SRCJEND.MAR; 1 (1) 
= 1 XESTBIT eeeeeeee x 
= : EXECUTE ane 4 
= Fi 3 
: 6 FS 6 | 
. ° F4 64 R 
id ' 
= 1 F5 | 
= 1 FCTR 
R FETCH 20% 4 | 
R GE TBPTX 
5 R GETCHAR 3 A : 
ef ie St 8 
964 R GETSCB 8000246 f 9 
= 00 OES R 0 GLOBL QO00IA R 9 | 
= 90000111 RC NIGH Sooszec RCO | 
= 90000108 RO INBUF 9900004 R 9 | 
68 INFLD 00000242 R 
obo 4 . 0 Reekeaee x 0 | 
= 0005C INISBRK comtonmn sO | 
00000848 R 0 INISROONLY et sae: . 9 | 
09000 3 4 6 o_o 00000078 R $5 
000 R 0 INSLEN 00000074 R 02 | 
00000 38 R 0 INSTR st 44 : : 8S 
$8096 39 R Sima = 0000000A | 
00002E6 R 0 LIBSINS_DECODE ooceees eu Oe Og | 
teneeese =X 0 LINEFEED 00000346 R ‘ | 
sececees, OS toce 09000606 RO | 
TCHAR agerennee | 
CONSRELEASECTY eeeeeren X 85 LOCPROMPT Ha Fe : 8 | 
CONTEXT 00000000 R 02 rt ae 944 fr Bs | 
CONTEXTSZ = Q000000E4 Or eric 0000060 9 | 
tR R 0 ME YFLGS doovosse RO 
coke eerereee x 0 
CURDO R 0 MMGSPAGEF AULT 00 7A 0 
CURTYPE OOO7E R 0 aes 8 $98 eo 85 
EPO gy NBRK = 9000000 
5 a 4 NEGATE $09 0505 R 02 
OY R 6 000032A R 0 
T R NEXTDOT 9 £9 fF 9 | 
‘ 4 NEXTD S0097¢ R 0 
DTYPE R x - 3 | 
ENDEXPR R NMODES : 8 2 
ENDF IEL R NPRIA ° § | 
EQL1 k NSEC “ : | 
EQUALS R NTERM . 8 3 | 
ERR R NTMPBRK 4 OF | 
eens K OP$_ACBD ® OGF 
ERR4 R OP$_ACBF . tFFD 
ERROR $ R OP$_ACBG e FF 
ESCAP SFI R OP$_ACBH . A} 
EXESACVIOLAT eeeerene x OP$_ADDD ° $1 
EXESBREAK eereeene M OP$_ADDD ° 
EXESGB_CPUTYPE eecerene x OP$_ADDF ® 79 
EXESGL~ SC eeeeeene x OP$_ADDF s LOF 
EXESROPR eererene x OP$_ADDG = D 


= EXECUTIVE DEBUGGER 15-SEP-1984 40:27 VAX/VMS Macro v04-00 
Symbol table aap eR- 1986 88:29:56 DELTA.SRCJEND.MAR; 1 
OP$_ADDG = FD OPS$_CVTWD = 8 60 
OPS_ADDH FD OPS_CVTWF 2 4D 
OP$_ADDH s F OP$_CVTWG = 4DFD 
OP$_ADDP4 s g OPS_CVTWH = DFD 
OP$_ADDP6 = OP$_DIVO = 4] 
OPS_ASHP = F8 OP$_DIVD = 6 
OPS_CLRD s 7¢ OPS_DIVF s : 28 
OPS_CLRF s >: OP$_DIVF z 4 
OPS_CLRG = C OP$_DIVG 2 rt 
OPS_CLRH s FD OP$_DIVG 2 47FD 
OPS_CMPD = 71 OP$_DIVH = OGFD 
OPS_CMPF s 51 OP$_DIVH 2 8 4! 
OPS_CMPG s FD OP$_DIvP = 0 
OPS_CAPH s F OPS_EDITPC = 0038 
OPS_CMPPS = ; OP$_EMODD = 00 4916; 
OPS_CMPP4 = OPS$_EMODF = 00 + 54 
OPS_CRC = 0B OP$_EMODG = 4 4FD 
OP$_CVTBD = 6C _EMOD = 000074FD 
OPS_CVTBF = 4C OPS_MATCHC = 00000039 
OP$_CVTBG = FD OPS_MNE = 49 454 444 
OP$_CVTBH = FD OP$_MNEGF = 4 5 
OP$_CVTDB = $8 OPS_MNEGG = 000052FD 
OPS_CVTDF = 6 OP$_MNEGH = 000072FD 
OP$_CVTDH s FD OP$_MOVD = 444 44 
OP$_CVTOL = 6A OPS_MOVF = 4 44 
OP$_CVTOW z re OP$_MOVG = Q000050FD 
OPS_CVTFB = 8 OP$_MOVH = 000070FD 
OPS_CVTFD = 56 OPS_MOVP = 00000034 
OPS_CVTFG = FD _MOVTC = SRO OSE 
OPS_CVTFH s FD OP$_MOVTUC = 0000002F 
OPS_CVTFL = _MULD = 00000064 
OPS_CVTFW s OP$_MULD = 00000065 
OP$_CVTGB z _MULF = 00000044 
OP$_CVIGF s OP$_MULF = 9444 
OP$_CVTGH s OP$_MULG = + og 
OP$_CVTGL = $_MULG = Q000045FD 
OP$_CVTGW = _MULH = 4 9 et 4 
OP$_CVTHB = OP$_MULH = 6 ta 
OP$_CVTHD s P$_MULP = 44404 
OPS_CVTHF = OP$_POL = 00000075 
OP$_CVTHG = OP$_POLYF = 0000 233 
OPS_CVTHL = OP$_POLYG = QOO055FD 
OPS_CVTHW s P$_POLYH = 000075FD 
OP$_CVTLD = OPS_SCANC s 8 A 
OPS_CVILF s OPS_SKPC = 
OP$_CVILG = OP$_SPANC = 000 
OP$_CVTLH z OP$_S = 00 6 
OPS_CVITLP = OP$_SUBD = 00 6 
OP$_CVTPL = OP$_SUBF zs 2 
OP$_CVTPS s OP$_SUBF = 4 
OPS_CVTPT s OP$_SUBG = 42FD 
OP$_CVTROL = OP$_SUBG = 45FD 
OPS_CVTRFL = OP$_SUBH = 62FD 
OP$_CVTRGL = OP$_ SUB a 
OPS$_CVTRHL = OP$_SUBP4 z 
OP$_CVTSP = OP$_SUBP6 a 
OP$_CvTTP s OP$_TSTD = 
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able a "Beep 1980 83:09:66 DELTA. SRCJEND.MAR; (1) 


| 
PSL$S_CURMOD * | 
+H Pst Sv~CURMOD = 15 
FD PSLS$V“TBIT = 04 : 
9% R QUAN 4k 02 
FR QUANT ace 
5° OUST , ASR 02 
QUOTE 
0 RDBUF : 0 
& ROCR s oF 
R REGCOM EF R 
R REGISTER 7e? R 
R RELOC % R 
7 R RESET 43 R 
4 RESTORE R 
R 9 RESTORR 0 FS R 0 
AR RETURN 0002¢B R 2 
3R RSET 000 oC 
4k RUBOUT = - ; 
R SAVAP 000 cB R 0 
TPUTA A2 4 SABER ago000¢ R 9 
OUTPUT _ADDRESS OO3FE R SAVPC 900000 R 0 
TR 31 R SAVPSL 00008 R 0 
Vet ti Se | 
eae 38 Hitt amt | 
OVEROPE DBE 3 AVSP 0000000 R 0 
OVEROPCODES 99 R 0 P 9000000 R : 
OVRADR 108 R 0 SCAN 90000169 R 9 | 
OVROPC DOOD00ES R SCHS$GL_CURPCB scoanese- 7.9 | 
PFNSAB_STATE tteeeere =X SCHSGL ~PCBVEC o : | 
PFNSAB~ TYPE eeeeeeee =X SECOND 9000065 R ; | 
PFNSAL~ BAK eeeeeeee Xx 0 SEMI 4 ae & 
PFNSAL “PTE eeeeeeee XK 0 SETBRK 00000 40 R 0 | 
PFNSAW REF CNT ceneeeeer X 0 SHFT 00 379 R 0 | 
PENSAW” SWPVBN eeveneee x SHOBRK 9000 FR : | 
PFNSAX” BLINK eereneee xX SLASH 38 r 
PFNSAX FLINK aeereeee § YX SLSH = $ $ + 6 
PID” 70 R 0 SPACES QO00S7F 0 
= 046A STATUS 0000054 R 0 
F . 500 STEPOVER 099 6BB R 0 
N = 000006 SUPERST oo0g1DD R 
PRS_MCESR = 0000 SYSLSCLRSBIA ssessees 
SBIFS = 000 TAB SET R 
= 0006 i da ASB R 
PRS_SID_TYP7 = UNBRK aco R 
PRS~SID~TYP750 = VALI 7E4 R 
TYP7 s Ok 
ed > ; Maat ° : 
= - 
sogatuad j R V-ATBRK : 
R * 
DO00019E R v-t¢ = ; 
8 at 
‘ sl 4 | 
obo TDS V7FS : e | 
| 
j 


$$ 
Z7$DEBUG_CODE 


Phase 
Initialization 
Command processing 


Pass 1 
pyeo} table sort 


Pass 

Symbol table output 
Psect synopsis output 
Cross-reference output 
Assembler run totals 


T i imi 
Its50"b 08," thab paged 


Page faults 


= EXECUTIVE DEBUGGER 


SHH! 


ane oma em 


: Psect sy 

jaounnenee 
Allocation PSECT 
00000000 < -) 00 ¢ 
4 4 a ( -» O1 ¢ 
OOOOACO ( 2752.) O02 ¢ 


+ 
' Per formanc 
+ 


i | 
414 at 
at 99 


There were 110 pages of symbol table space a 
$134 source Lines were read in Pass 1, producing 
pages of virtual memory were used to define 1 


7 macros 


were used to buffer 
Lloc 


AX/VMS Macro v04- 
DELTA. SRCJEND.MAR; 


NOSHR NOEXE —_ NOWRT NOVE 


WRT NOVE 


EXE RD WRT NOVE 


E 
15-SEP-1984 40:27 
-MAR-1980 83:29:66 
nemo none + 
nopsis ! 
ececece + 
No. Attributes 
9.) NOPIC USR CON ABS LCL 
-) NOPIC USR CON ABS LCL NOSHR’- EXE 
2.) PIC USR CON REL LCL NOSHR 
soceeneeonens 
indicators : 


Elapsed Time 


he intermediate 
ated to hold 2050 non-local and 
object records in Pass 2. 


198° iocat symbols. 


C BYTE 
C BYTE 
C LONG 


pat 


- EXECUTIVE DEBUGGER ie iy ata Ps 7 $3: a rH AX/VMS nes ro V04 Page 69 


MDELTA 
VAK-11 Macro Run Statistics “MAR-19 DELTA. srci END .MAR; (1) 


be woeoemaesnerewre sree caencanas ¢ 


! Macro Library statistics ! 


teow nmaosamaonecaensrraozreseesesce } 


Macro Librery name Macros defined 
3 SYS.08 118. 31 1 
Hitt tan 58; $YSL18 sFARL ET ALB; 2 19 
TOTALS te (all libraries) 23 


2055 GETS were required to define 23 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=L1S$:XDELTA/OBJ=OBJ$:XDELTA MASD$:CEMULAT. SRC IMISSING/UPDATE=(MASD$: CEMULAT.ENHIJMISSING) *MASDS: (DELTA. SRC XDEL TA/UPDATE=( 
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Aide GHoBTI3A Se ) NT CORPORATION 
| VAX/VMS_V4.0 D_ PROPRIETARY 


